emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Mu4e: Correct reference to unbound variable

Browse source
This commit is contained in:
TEC 2020-10-22 00:23:25 +08:00
parent 44c831ce59
commit 8e4f559a52
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
modules/email/mu4e/config.el
View file

@ -111,24 +111,23 @@
'((:account . '((:account .
(:name "Account" (:name "Account"
:shortname "Account" :shortname "Account"
:help "which account this email belongs to" :help "which account/maildir this email belongs to"
:function :function
(lambda (msg) (lambda (msg)
(let ((maildir (replace-regexp-in-string
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir)))))
(+mu4e-colorize-str (+mu4e-colorize-str
(replace-regexp-in-string (replace-regexp-in-string
"^gmail" "^gmail"
(propertize "g" 'face 'bold-italic) (propertize "g" 'face 'bold-italic)
(format "%s" maildir)
(substring maildir 1
(string-match-p "/" maildir 1))))
'+mu4e-header--maildir-colors '+mu4e-header--maildir-colors
(replace-regexp-in-string maildir))))
"\\`/\\([^/]+\\)/.*\\'" "\\1"
(mu4e-message-field msg :maildir))))))
(:account-stripe . (:account-stripe .
(:name "Account" (:name "Account"
:shortname "▐" :shortname "▐"
:help "Which account this email belongs to" :help "Which account/maildir this email belongs to"
:function :function
(lambda (msg) (lambda (msg)
(let ((account (let ((account