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

Mu4e: Generalise ivy-read to completing-read

Browse source
This commit is contained in:
TEC 2020-10-14 14:13:04 +08:00
parent 358ff84c54
commit 8e0001f6fd
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/email/mu4e/autoload/email.el
View file

@ -209,12 +209,14 @@ with the current context."
(if (member from (mu4e-personal-addresses))
(setq user-mail-address from)
nil))))
(ivy-read "From: " (if-let ((context-addresses
(when mu4e~context-current
(alist-get '+mu4e-personal-addresses (mu4e-context-vars mu4e~context-current)))))
context-addresses
(mu4e-personal-addresses))
:action (lambda (candidate) (setq user-mail-address candidate)))))
(setq user-mail-address
(completing-read
"From: "
(if-let ((context-addresses
(when mu4e~context-current
(alist-get '+mu4e-personal-addresses (mu4e-context-vars mu4e~context-current)))))
context-addresses
(mu4e-personal-addresses))))))
;;;###autoload
(defun +mu4e~main-action-str-prettier (str &optional func-or-shortcut)