cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-21 08:50:51 +01:00
Code Issues

- [fediverse] fixed regression: missing quoted text when replying to a messages without any mention.

Browse Source
This commit is contained in:
cage 2024-09-23 19:51:11 +02:00
parent 45102d8dc4
commit c182ed743e
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ui-goodies.lisp
View File

@ -1385,8 +1385,8 @@ It an existing file path is provided the command will refuse to run."
(lines (split-lines quoted-text)) (lines (split-lines quoted-text))
(quote-mark (swconf:quote-char)) (quote-mark (swconf:quote-char))
(quoted-lines (mapcar (lambda (a) (strcat quote-mark a)) (quoted-lines (mapcar (lambda (a) (strcat quote-mark a))
lines)) lines)))
(mentioned-users-table (let ((mentioned-users-table
(message-rendering-utils:usernames->usernames-table quoted-text))) (message-rendering-utils:usernames->usernames-table quoted-text)))
(with-open-file (stream file (with-open-file (stream file
:if-exists :append :if-exists :append
@ -1397,7 +1397,7 @@ It an existing file path is provided the command will refuse to run."
(let ((line-fixed-mentions (let ((line-fixed-mentions
(message-rendering-utils:local-mention->acct line (message-rendering-utils:local-mention->acct line
mentioned-users-table))) mentioned-users-table)))
(format stream "~a~%" line-fixed-mentions))))))) (format stream "~a~%" line-fixed-mentions))))))))
(add-signature (file) (add-signature (file)
(when-let ((signature (message-rendering-utils:signature))) (when-let ((signature (message-rendering-utils:signature)))
(with-open-file (stream (with-open-file (stream