From 025bf3cd4af73020e1657dbb20e13cc0711b8d68 Mon Sep 17 00:00:00 2001 From: Mark Walters Date: Sat, 8 Oct 2016 21:05:22 +0100 Subject: [PATCH] emacs: mua: extract a common message-send function. This commit adds a common message-send function for message-send and message-send-and-exit. At the moment the overlap is small, but the message-send function will get more complex. --- emacs/notmuch-mua.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el index 55bc2672..72fb7705 100644 --- a/emacs/notmuch-mua.el +++ b/emacs/notmuch-mua.el @@ -490,15 +490,20 @@ will be addressed to all recipients of the source message." (notmuch-mua-reply query-string sender reply-all) (deactivate-mark))) -(defun notmuch-mua-send-and-exit (&optional arg) +(defun notmuch-mua-send-common (arg &optional exit) (interactive "P") (letf (((symbol-function 'message-do-fcc) #'notmuch-maildir-message-do-fcc)) - (message-send-and-exit arg))) + (if exit + (message-send-and-exit arg) + (message-send arg)))) + +(defun notmuch-mua-send-and-exit (&optional arg) + (interactive "P") + (notmuch-mua-send-common arg 't)) (defun notmuch-mua-send (&optional arg) (interactive "P") - (letf (((symbol-function 'message-do-fcc) #'notmuch-maildir-message-do-fcc)) - (message-send arg))) + (notmuch-mua-send-common arg)) (defun notmuch-mua-kill-buffer () (interactive)