[PATCH v3 6/9] emacs/mua: Don't insert part headers in citations
David Edmondson
dme at dme.org
Mon May 12 05:29:26 PDT 2014
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
More information about the notmuch
mailing list