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

generalize notmuch/ivy-compose to notmuch/compose (completing-read)

Browse source
This commit is contained in:
Max Nickel 2019-10-26 14:02:56 -04:00
parent e279409bbd
commit a4050a153d
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/email/notmuch/autoload.el
View file

@ -87,12 +87,13 @@
(notmuch-tree-next-message)) (notmuch-tree-next-message))
;;;###autoload ;;;###autoload
(defun +notmuch/ivy-compose () (defun +notmuch/compose ()
"Compose new mail" "Compose new mail"
(interactive) (interactive)
(ivy-read "From: " (notmuch-mua-mail
(notmuch-user-emails) nil
:action (lambda (selection) (notmuch-mua-mail nil nil (list (cons 'From selection)))))) nil
(list (cons 'From (completing-read "From: " (notmuch-user-emails))))))
;;;###autoload ;;;###autoload
(defun +notmuch/open-message-with-mail-app-notmuch-tree () (defun +notmuch/open-message-with-mail-app-notmuch-tree ()