From: David Bremner <david@tethera.net>
To: notmuch@notmuchmail.org
Subject: [PATCH v2] notmuch.el: add a hook to notmuch-reply
Date: Wed, 21 Apr 2010 18:41:35 -0300
Message-Id: <1271886095-17766-1-git-send-email-david@tethera.net>
In-Reply-To: <1267186952-4561-1-git-send-email-david@tethera.net>
References: <1267186952-4561-1-git-send-email-david@tethera.net>
Cc: David Bremner <bremner@unb.ca>
Precedence: list

From: David Bremner <bremner@unb.ca>

This patch introduces a variable notmuch-reply-hook and calls it using
run-hooks. This allows people to easily override the header setup and
so forth done by notmuch-reply.  In particular it allows harmonizing
the headers of message-mode and notmuch-reply.
---

Rebased against current master. The rework was inspired by current
discussion about how Bcc handling was broken in message-mode buffers
not generated by notmuch-reply.

 emacs/notmuch.el |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 66958a6..563fdc8 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -72,6 +72,14 @@ For example:
   :type '(alist :key-type (string) :value-type (string))
   :group 'notmuch)
 
+(defcustom notmuch-reply-hook nil
+  "List of functions to call when replying to a message.
+Run after the buffer content is returned from notmuch and before
+handing off to message mode. The function `notmuch-reply' runs
+this hook."
+  :type 'hook
+  :group 'notmuch)
+
 (defun notmuch-select-tag-with-completion (prompt &rest search-terms)
   (let ((tag-list
 	 (with-output-to-string
@@ -124,6 +132,8 @@ For example:
       (progn
 	(insert "--text follows this line--")
 	(forward-line)))
+  (save-excursion
+    (run-hooks 'notmuch-reply-hook))
   (message-mode))
 
 (defun notmuch-documentation-first-line (symbol)
-- 
1.7.0