diff --git a/modules/email/notmuch/autoload.el b/modules/email/notmuch/autoload.el
index 25a3f1e3b..6c273e526 100644
--- a/modules/email/notmuch/autoload.el
+++ b/modules/email/notmuch/autoload.el
@@ -86,6 +86,14 @@
   (notmuch-tree-add-tag (list "+spam" "-inbox" "-unread"))
   (notmuch-tree-next-message))
 
+;;;###autoload
+(defun +notmuch/ivy-compose ()
+  "Compose new mail"
+  (interactive)
+  (ivy-read "From: "
+            (notmuch-user-emails)
+            :action (lambda (selection) (notmuch-mua-mail nil nil (list (cons 'From selection))))))
+
 ;;;###autoload
 (defun +notmuch/open-message-with-mail-app-notmuch-tree ()
   (interactive)