+(defun notmuch-mua-new-reply (query-string &optional prompt-for-sender)
+ "Invoke the notmuch reply window."
+ (interactive "P")
+ (let ((sender
+ (when (or prompt-for-sender notmuch-always-prompt-for-sender)
+ (notmuch-mua-prompt-for-sender))))
+ (notmuch-mua-reply query-string sender)))
+