emacs: Remove notmuch-mua-message-send-hook

Currently `message-send-hook` functions are being called twice: In
notmuch send common when `notmuch-mua-send-hook` functions are
run (which by default includes `notmuch-mua-message-send-hook`) and in
`message-send` itself.

Because `message-send-hook` functions are run in `message-send` itself,
we don't need also need to run them before we delegate to `message-send`

Calling `notmuch-mua-message-send-hook` resulted in functions in
`message-send-hook` to be called twice. This causes bugs in
non-idempotent hook functions.
This commit is contained in:
Tim Quelch 2020-09-12 14:45:40 +10:00 committed by David Bremner
parent d127b16afe
commit 45193bab16

View file

@ -40,7 +40,7 @@
;; ;;
(defcustom notmuch-mua-send-hook '(notmuch-mua-message-send-hook) (defcustom notmuch-mua-send-hook nil
"Hook run before sending messages." "Hook run before sending messages."
:type 'hook :type 'hook
:group 'notmuch-send :group 'notmuch-send
@ -601,11 +601,6 @@ unencrypted. Really send? "))))
(interactive) (interactive)
(message-kill-buffer)) (message-kill-buffer))
(defun notmuch-mua-message-send-hook ()
"The default function used for `notmuch-mua-send-hook', this
simply runs the corresponding `message-mode' hook functions."
(run-hooks 'message-send-hook))
;; ;;
(define-mail-user-agent 'notmuch-user-agent (define-mail-user-agent 'notmuch-user-agent