cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-02 04:36:43 +01:00
Code Issues

- ensured the poll from a reblogged post is saved on the database.

Browse Source
This commit is contained in:
cage 2024-10-23 15:22:28 +02:00
parent 2eed0f6659
commit c446565574
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/db.lisp
View File

@ -1400,6 +1400,10 @@ than (swconf:config-purge-history-days-offset) days in the past"
(reblog-id (if parent (reblog-id (if parent
(prepare-for-db (tooter:id parent)) (prepare-for-db (tooter:id parent))
(prepare-for-db nil))) (prepare-for-db nil)))
(poll-reblog (tooter:poll parent))
(actual-poll (if parent
poll-reblog
poll))
(account-ignored-p (user-ignored-p account-id)) (account-ignored-p (user-ignored-p account-id))
(status-ignored-p (status-ignored-p id folder timeline))) (status-ignored-p (status-ignored-p id folder timeline)))
(when (not (and skip-ignored-p (when (not (and skip-ignored-p
@ -1476,10 +1480,10 @@ than (swconf:config-purge-history-days-offset) days in the past"
(let ((db-status (find-status-id-folder-timeline id folder timeline))) (let ((db-status (find-status-id-folder-timeline id folder timeline)))
(hooks:run-hook-compose 'hooks:*after-saving-message* db-status))) (hooks:run-hook-compose 'hooks:*after-saving-message* db-status)))
;; add poll or update poll's votes ;; add poll or update poll's votes
(when poll (when actual-poll
(if reblog-id (if reblog-id
(update-db poll :status-id reblog-id) (update-db actual-poll :status-id reblog-id)
(update-db poll :status-id id)))))))) (update-db actual-poll :status-id id))))))))
(defun find-chat (chat-id) (defun find-chat (chat-id)
(fetch-single (select :* (fetch-single (select :*