awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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
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)