debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 02:48:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: mua: extract a common message-send function.

Browse source 
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.
This commit is contained in:
Mark Walters 2016-10-08 21:05:22 +01:00 committed by David Bremner
parent 0c52b5d3b2
commit 025bf3cd4a
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
emacs/notmuch-mua.el
View file

@ -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)