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

- fixed false positive for new message on subscribed tags.

Browse Source
This commit is contained in:
cage 2020-12-26 20:11:40 +01:00
parent c7b706a773
commit 40a46d584e
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/db.lisp
View File

@ -2494,11 +2494,18 @@ name"
(cl-ppcre:regex-replace +folder-tag-prefix+ folder ""))
(defun max-status-id-subscribed-tag (tag)
(when-let* ((max-status-id-row (fetch-single (select (fields (:max :status-id))
(from +table-status+)
(where (:= :folder (tag->folder-name tag))))))
(max-status-id (second max-status-id-row)))
max-status-id))
(let* ((max-status-id-row (fetch-single (select (fields (:max :status-id))
(from +table-status+)
(where (:= :folder
(tag->folder-name tag))))))
(max-status-id (second max-status-id-row))
(max-ignored-status-id-row (fetch-single (select (fields (:max :status-id))
(from +table-ignored-status+)
(where (:= :folder
(tag->folder-name tag))))))
(max-ignored-status-id (second max-ignored-status-id-row)))
(or max-status-id
max-ignored-status-id)))
(defun more-recent-tag-fetched-p (tag)
"Returns the most recent message fetched that contains tag `tag', or