tec/emacs-config
tec/emacs-config
1
0
Fork 0
Code Issues 4 Pull requests Releases Activity

Mu4e: Fix incorrect condition, paren mis-match

Browse source
This commit is contained in:
TEC 2020-05-24 03:13:24 +08:00
parent a7816d5c37
commit c811c4698e
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
config.org
View file

@ -1636,12 +1636,12 @@ prompt otherwise also seems sensible.
(after! mu4e
(defun my-mu4e-set-account ()
"Set the account for composing a message."
(when (and mu4e-compose-parent-message
(unless (and mu4e-compose-parent-message
(let ((mail (cdr (car (mu4e-message-field mu4e-compose-parent-message :to)))))
(if (member mail (plist-get mu4e~server-props :personal-addresses))
(setq user-mail-address mail)
nil))
(ivy-read "Account: " (plist-get mu4e~server-props :personal-addresses) :action (lambda (candidate) (setq user-mail-address candidate))))))
nil)))
(ivy-read "Account: " (plist-get mu4e~server-props :personal-addresses) :action (lambda (candidate) (setq user-mail-address candidate)))))
(add-hook 'mu4e-compose-pre-hook 'my-mu4e-set-account))
#+END_SRC