diff --git a/src/message-rendering-utils.lisp b/src/message-rendering-utils.lisp index b7d4cc4..a14a208 100644 --- a/src/message-rendering-utils.lisp +++ b/src/message-rendering-utils.lisp @@ -251,6 +251,7 @@ (let ((expiredp (db:row-poll-expired-p poll)) (multiple-vote-allowed (db:row-poll-multiple-vote-p poll))) (with-output-to-string (stream) + (format stream "~3%") (loop for title in all-titles for index in all-rendered-indices diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index ed8b921..6843b94 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -567,7 +567,8 @@ Force the checking for new message in the thread the selected message belong." (line-oriented-window:selected-row-fields specials:*thread-window*)) (timeline (thread-window:timeline-type specials:*thread-window*)) (folder (thread-window:timeline-folder specials:*thread-window*)) - (status-id (db:row-message-status-id selected-message)) + (status-id (or (db:row-message-reblog-id selected-message) + (db:row-message-status-id selected-message))) (expand-event (make-instance 'expand-thread-event :new-folder folder :new-timeline timeline