On Mon, Dec 11 2023, Sandra Snan wrote: > This hook is run after `notmuch reply` has been successfully called > with the headers from the original message. > --- > emacs/notmuch-mua.el | 17 ++++++++++++----- > 1 file changed, 12 insertions(+), 5 deletions(-) > > diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el > index e4b7e9d1..b6c6585d 100644 > --- a/emacs/notmuch-mua.el > +++ b/emacs/notmuch-mua.el > @@ -44,13 +44,18 @@ > (defvar notmuch-show-max-text-part-size) > (defvar notmuch-show-insert-text/plain-hook) > > +(defvar notmuch-mua-reply-functions nil > + "Functions to run after `notmuch-reply' was called successfully > +without erroring. The functions get the original message as a > +sexp." > + > ;;; Options > > -(defcustom notmuch-mua-send-hook nil > - "Hook run before sending messages." > - :type 'hook > - :group 'notmuch-send > - :group 'notmuch-hooks) > + (defcustom notmuch-mua-send-hook nil > + "Hook run before sending messages." > + :type 'hook > + :group 'notmuch-send > + :group 'notmuch-hooks)) I don't see why this defcustom got indented (viewing context: this diff); otherwise LGTM. Tomi > > (defcustom notmuch-mua-compose-in 'current-window > "Where to create the mail buffer used to compose a new message. > @@ -256,6 +261,8 @@ Typically this is added to `notmuch-mua-send-hook'." > ;; Extract the headers of both the reply and the original message. > (let* ((original-headers (plist-get original :headers)) > (reply-headers (plist-get reply :reply-headers))) > + ;; Run hook here with the original > + (run-hook-with-args 'notmuch-mua-reply-functions original) > ;; If sender is non-nil, set the From: header to its value. > (when sender > (plist-put reply-headers :From sender)) > -- > 2.39.2 _______________________________________________ notmuch mailing list -- notmuch@notmuchmail.org To unsubscribe send an email to notmuch-leave@notmuchmail.org