cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed repeating of an already repeated message.

This commit is contained in:
cage 2020-09-14 20:52:19 +02:00
parent d08f4a67d1
commit d6bc8da305
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/program-events.lisp
View File

@ -565,7 +565,13 @@
(defmethod process-event ((object reblog-status-event))
(tui:with-notify-errors
(change-status-values object #'api-client:reblog-status)))
(flet ((boost (status-id)
(let* ((status (db:find-status-id status-id))
(status-id-to-boost (db:row-message-reblog-id status)))
(if status-id-to-boost
(api-client:reblog-status status-id-to-boost)
(api-client:reblog-status status-id)))))
(change-status-values object #'boost))))
(defclass unreblog-status-event (program-event event-with-message-index) ())