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

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))
;;;###autoload
(defun +notmuch/ivy-compose ()
(defun +notmuch/compose ()
"Compose new mail"
(interactive)
(ivy-read "From: "
(notmuch-user-emails)
:action (lambda (selection) (notmuch-mua-mail nil nil (list (cons 'From selection))))))
(notmuch-mua-mail
nil
nil
(list (cons 'From (completing-read "From: " (notmuch-user-emails))))))
;;;###autoload
(defun +notmuch/open-message-with-mail-app-notmuch-tree ()