From a4050a153d8f39e6043d5af0a8ee45464e6cb2b0 Mon Sep 17 00:00:00 2001 From: Max Nickel Date: Sat, 26 Oct 2019 14:02:56 -0400 Subject: [PATCH] generalize notmuch/ivy-compose to notmuch/compose (completing-read) --- modules/email/notmuch/autoload.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/modules/email/notmuch/autoload.el b/modules/email/notmuch/autoload.el index 12203587f..211e45957 100644 --- a/modules/email/notmuch/autoload.el +++ b/modules/email/notmuch/autoload.el @@ -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 ()