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

Merge pull request #2292 from manufactory/master

Browse Source 
More customizable maildir shortcuts
This commit is contained in:
Dirk-Jan C. Binnema
2022-12-28 10:55:57 +02:00
committed by GitHub
parent c5e0faea40 be695579c6
commit 56099998e4
3 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
mu4e/mu4e-main.el
View File

@ -210,7 +210,7 @@ clicked."
with longest = (mu4e--longest-of-maildirs-and-bookmarks)
with queries = (plist-get mu4e--server-props :queries)
for m in mds
for key = (string (plist-get m :key))
for key = (plist-get m :key)
for name = (plist-get m :name)
for query = (plist-get m :query)
for qcounts = (and (stringp query)
@ -226,9 +226,12 @@ clicked."
when (not (and mu4e-main-hide-fully-read (eq unread 0)))
concat (concat
;; menu entry
(mu4e--main-action-str
(concat "\t* [j" key "] " name)
(concat "j" key))
(cond ((characterp key)
(mu4e--main-action-str
(concat "\t* [j" (string key) "] " name)
(concat "j" (string key))))
((stringp key) (concat "\t* " key " " name))
(t (concat "\t* " name)))
;; append all/unread numbers, if available.
(if qcounts
(let ((unread (plist-get (car qcounts) :unread))