[PATCH v4] Add hook inside notmuch-mua-reply

Subject: [PATCH v4] Add hook inside notmuch-mua-reply

Date: Tue, 12 Dec 2023 09:11:30 +0100

To: notmuch@notmuchmail.org

Cc: Sandra Snan

From: Sandra Snan

This hook is run after `notmuch reply` has been successfully called
with the headers from the original message.
 emacs/notmuch-mua.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index e4b7e9d1..0be045d3 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
 ;;; Options
 (defcustom notmuch-mua-send-hook nil
   "Hook run before sending messages."
   :type 'hook
   :group 'notmuch-send
-  :group 'notmuch-hooks)
+  :group 'notmuch-hooks))
 (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))

notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-leave@notmuchmail.org