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)) (if (member from (mu4e-personal-addresses))
(setq user-mail-address from) (setq user-mail-address from)
nil)))) nil))))
(ivy-read "From: " (if-let ((context-addresses (setq user-mail-address
(when mu4e~context-current (completing-read
(alist-get '+mu4e-personal-addresses (mu4e-context-vars mu4e~context-current))))) "From: "
context-addresses (if-let ((context-addresses
(mu4e-personal-addresses)) (when mu4e~context-current
:action (lambda (candidate) (setq user-mail-address candidate))))) (alist-get '+mu4e-personal-addresses (mu4e-context-vars mu4e~context-current)))))
context-addresses
(mu4e-personal-addresses))))))
;;;###autoload ;;;###autoload
(defun +mu4e~main-action-str-prettier (str &optional func-or-shortcut) (defun +mu4e~main-action-str-prettier (str &optional func-or-shortcut)