Mu4e: Correct reference to unbound variable
This commit is contained in:
parent
44c831ce59
commit
8e4f559a52
1 changed files with 7 additions and 8 deletions
|
@ -111,24 +111,23 @@
|
|||
'((:account .
|
||||
(:name "Account"
|
||||
:shortname "Account"
|
||||
:help "which account this email belongs to"
|
||||
:help "which account/maildir this email belongs to"
|
||||
:function
|
||||
(lambda (msg)
|
||||
(let ((maildir (replace-regexp-in-string
|
||||
"\\`/?\\([^/]+\\)/.*\\'" "\\1"
|
||||
(mu4e-message-field msg :maildir)))))
|
||||
(+mu4e-colorize-str
|
||||
(replace-regexp-in-string
|
||||
"^gmail"
|
||||
(propertize "g" 'face 'bold-italic)
|
||||
(format "%s"
|
||||
(substring maildir 1
|
||||
(string-match-p "/" maildir 1))))
|
||||
maildir)
|
||||
'+mu4e-header--maildir-colors
|
||||
(replace-regexp-in-string
|
||||
"\\`/\\([^/]+\\)/.*\\'" "\\1"
|
||||
(mu4e-message-field msg :maildir))))))
|
||||
maildir))))
|
||||
(:account-stripe .
|
||||
(:name "Account"
|
||||
:shortname "▐"
|
||||
:help "Which account this email belongs to"
|
||||
:help "Which account/maildir this email belongs to"
|
||||
:function
|
||||
(lambda (msg)
|
||||
(let ((account
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue