mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

mu4e: Properly eval match-func in ambrevar/mu4e-account-init

master
Pierre Neidhardt 2018-12-19 10:25:56 +01:00
parent a846e14f37
commit 69925afe96
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.emacs.d/lisp/patch-mu4e-account.el
View File

@ -110,12 +110,12 @@ See `ambrevar/mu4e-account' for more details."
:name (ambrevar/mu4e-account-name account)
:enter-func (ambrevar/mu4e-account-enter-func account)
:leave-func (ambrevar/mu4e-account-leave-func account)
:match-func (lambda (msg)
(when msg
(or
(when (ambrevar/mu4e-account-condition account)
(funcall (ambrevar/mu4e-account-condition account) msg))
(string-prefix-p maildir (mu4e-message-field msg :maildir)))))
:match-func `(lambda (msg)
(when msg
(or
,(when (ambrevar/mu4e-account-condition account)
`(funcall ,(ambrevar/mu4e-account-condition account) msg))
(string-prefix-p ,maildir (mu4e-message-field msg :maildir)))))
:vars (append `((user-mail-address . ,(ambrevar/mu4e-account-user-mail-address account))
(smtpmail-smtp-user . ,(ambrevar/mu4e-account-smtpmail-smtp-user account))
(mu4e-drafts-folder . ,mu4e-drafts-folder)