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

- prevented disappearing of text in a reblogged toot when the parent 

status has empty 'content' field or has no attachments.
This commit is contained in:
cage 2020-05-17 22:29:43 +02:00
parent d86c1a6455
commit 38411e1a19
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/thread-window.lisp
View File

@ -760,10 +760,10 @@ db:renumber-timeline-message-index."
(defun reblogged-data (reblogger-status) (defun reblogged-data (reblogger-status)
(when-let* ((reblogged-id (db:row-message-reblog-id reblogger-status)) (when-let* ((reblogged-id (db:row-message-reblog-id reblogger-status))
(reblogged-status (db:find-status-id reblogged-id)) (reblogged-status (db:find-status-id reblogged-id)))
(body (db:row-message-rendered-text reblogged-status)) (let ((body (db:row-message-rendered-text reblogged-status))
(attachments (status-attachments->text reblogged-id))) (attachments (status-attachments->text reblogged-id)))
(values body attachments))) (values body attachments))))
(defmethod open-message ((object thread-window)) (defmethod open-message ((object thread-window))
(with-accessors ((row-selected-index row-selected-index) (with-accessors ((row-selected-index row-selected-index)