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

- [fediverse] save reblogged status, if any, when fetching a status from the server.

This commit is contained in:
cage 2024-06-29 14:55:35 +02:00
parent 07bdc7c65c
commit 4d3d2050b2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/program-events.lisp
View File

@ -574,7 +574,11 @@
(let ((dump (with-output-to-string (stream)
(tooter::present status stream))))
(dbg "fetch single status ~a" dump))
(db:update-db status :folder folder :timeline timeline))))
(db:update-db status :folder folder :timeline timeline)
(when (tooter:parent status)
(db:update-db (tooter:parent status)
:folder folder
:timeline timeline)))))
(defparameter *search-next-saved-event* nil)