From c2b0d2db6ec415f6ab34fc96919d9a70192b4c5c Mon Sep 17 00:00:00 2001 From: Sean Farley Date: Mon, 24 Feb 2020 14:17:44 -0800 Subject: [PATCH] mu4e-utils: send maildir queries along with bookmarks When `mu4e-main-show-maildirs' is non-nil, we append the list of maildir queries to the mu server. --- mu4e/mu4e-utils.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/mu4e/mu4e-utils.el b/mu4e/mu4e-utils.el index a8f04ac9..437efb72 100644 --- a/mu4e/mu4e-utils.el +++ b/mu4e/mu4e-utils.el @@ -809,14 +809,14 @@ When successful, call FUNC (if non-nil) afterwards." (mu4e~context-autoswitch nil mu4e-context-policy)) (setq mu4e-pong-func (lambda (info) (mu4e~pong-handler info func))) (mu4e~proc-ping - (mapcar - ;; send it a list of queries we'd like to see read/unread info for. - (lambda(bm) (plist-get bm :query)) - (seq-filter (lambda (bm) ;; exclude bookmarks that are not strings, - ;; and with these flags. + (mapcar ;; send it a list of queries we'd like to see read/unread info for + (lambda (bm) (plist-get bm :query)) + ;; exclude bookmarks that are not strings, and with certain flags + (seq-filter (lambda (bm) (and (stringp (plist-get bm :query)) (not (or (plist-get bm :hide) (plist-get bm :hide-unread))))) - (mu4e-bookmarks)))) + (append (mu4e-bookmarks) + (mu4e~maildirs-with-query))))) ;; maybe request the list of contacts, automatically refreshed after ;; reindexing (unless mu4e~contacts (mu4e~request-contacts-maybe)))