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

Reply via email to