From 38411e1a194cbac033fba8cfaf4851619a2c1ce0 Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 17 May 2020 22:29:43 +0200 Subject: [PATCH] - prevented disappearing of text in a reblogged toot when the parent status has empty 'content' field or has no attachments. --- src/thread-window.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/thread-window.lisp b/src/thread-window.lisp index 0422fab..a97e916 100644 --- a/src/thread-window.lisp +++ b/src/thread-window.lisp @@ -760,10 +760,10 @@ db:renumber-timeline-message-index." (defun reblogged-data (reblogger-status) (when-let* ((reblogged-id (db:row-message-reblog-id reblogger-status)) - (reblogged-status (db:find-status-id reblogged-id)) - (body (db:row-message-rendered-text reblogged-status)) - (attachments (status-attachments->text reblogged-id))) - (values body attachments))) + (reblogged-status (db:find-status-id reblogged-id))) + (let ((body (db:row-message-rendered-text reblogged-status)) + (attachments (status-attachments->text reblogged-id))) + (values body attachments)))) (defmethod open-message ((object thread-window)) (with-accessors ((row-selected-index row-selected-index)