alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #1859 from tsdh/use-mu4e-query-rewrite-function-for-counts

Browse Source 
Use mu4e-query-rewrite-function also for computing bookmark counts
This commit is contained in:
Dirk-Jan C. Binnema
2020-12-17 23:27:04 +02:00
committed by GitHub
parent 3ff8fd165f fe6cbf5949
commit 78636ba3df
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mu4e/mu4e-main.el
View File

@ -125,7 +125,8 @@ clicked."
for bm in bmks for bm in bmks
for key = (string (plist-get bm :key)) for key = (string (plist-get bm :key))
for name = (plist-get bm :name) for name = (plist-get bm :name)
for query = (plist-get bm :query) for query = (funcall (or mu4e-query-rewrite-function #'identity)
(plist-get bm :query))
for qcounts = (and (stringp query) for qcounts = (and (stringp query)
(cl-loop for q in queries (cl-loop for q in queries
when (string= when (string=

4
mu4e/mu4e-utils.el
View File

@ -826,7 +826,9 @@ When successful, call FUNC (if non-nil) afterwards."
(setq mu4e-pong-func (lambda (info) (mu4e~pong-handler info func))) (setq mu4e-pong-func (lambda (info) (mu4e~pong-handler info func)))
(mu4e~proc-ping (mu4e~proc-ping
(mapcar ;; send it a list of queries we'd like to see read/unread info for (mapcar ;; send it a list of queries we'd like to see read/unread info for
(lambda (bm) (plist-get bm :query)) (lambda (bm)
(funcall (or mu4e-query-rewrite-function #'identity)
(plist-get bm :query)))
;; exclude bookmarks that are not strings, and with certain flags ;; exclude bookmarks that are not strings, and with certain flags
(seq-filter (lambda (bm) (seq-filter (lambda (bm)
(and (stringp (plist-get bm :query)) (and (stringp (plist-get bm :query))