[PATCH v3 6/9] emacs/mua: Don't insert part headers in citations

Subject: [PATCH v3 6/9] emacs/mua: Don't insert part headers in citations

Date: Mon, 12 May 2014 13:29:26 +0100

To: notmuch@notmuchmail.org

Cc:

From: David Edmondson


Avoid inserting part headers when rendering a message body for
citation purposes.
---
 emacs/notmuch-mua.el | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index 09c922f..c800c38 100644
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -201,10 +201,13 @@ list."
 	(insert "Date: " date "\n\n")
 
 	(insert (with-temp-buffer
-		  ;; Don't attempt to clean up messages, excerpt
-		  ;; citations, etc. in the original message before
-		  ;; quoting.
-		  (let ((notmuch-show-insert-text/plain-hook nil))
+		  (let
+		      ;; Don't attempt to clean up messages, excerpt
+		      ;; citations, etc. in the original message before
+		      ;; quoting.
+		      ((notmuch-show-insert-text/plain-hook nil)
+		       ;; Don't insert part buttons.
+		       (notmuch-show-insert-header-p-function #'notmuch-show-insert-header-p-never))
 		    (notmuch-show-insert-body original (plist-get original :body) 0)
 		    (buffer-substring-no-properties (point-min) (point-max)))))
 
-- 
2.0.0.rc0


Thread: