]> git.notmuchmail.org Git - notmuch/blobdiff - emacs/notmuch.el
emacs: Allow the user to choose the "From" address when replying to a message
[notmuch] / emacs / notmuch.el
index c3ed0cdb2b895a694fd5a24c2ba065122eba83d8..c22add7aa97f4a001100bc289c9fbfca6e13e4cb 100644 (file)
@@ -436,11 +436,11 @@ Complete list of currently available key bindings:
                         32 nil nil t)))
       (error "End of search results"))))
 
-(defun notmuch-search-reply-to-thread ()
+(defun notmuch-search-reply-to-thread (&optional prompt-for-sender)
   "Begin composing a reply to the entire current thread in a new buffer."
-  (interactive)
+  (interactive "P")
   (let ((message-id (notmuch-search-find-thread-id)))
-    (notmuch-mua-reply message-id)))
+    (notmuch-mua-new-reply message-id prompt-for-sender)))
 
 (defun notmuch-call-notmuch-process (&rest args)
   "Synchronously invoke \"notmuch\" with the given list of arguments.