emacs: Change the default notmuch-mua-reply-insert-header-p-function

[notmuch] / emacs / notmuch-mua.el

diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el
index fcb3e951f9dc7af174297d917b069d2ff959db19..4cb714a4b757c5b4a2150589eb24f6dc207d773d 100644 (file)
--- a/emacs/notmuch-mua.el
+++ b/emacs/notmuch-mua.el
@@ -94,19 +94,19 @@ Note that these functions use `mail-citation-hook' if that is non-nil."
   :group 'notmuch-reply)
 
 (defcustom notmuch-mua-reply-insert-header-p-function
-  'notmuch-show-reply-insert-header-p-trimmed
+  'notmuch-show-reply-insert-header-p-never
   "Function to decide which parts get a header when replying.
 
 This function specifies which parts of a mime message with
 mutiple parts get a header."
-  :type '(radio (const :tag "All except multipart/* and hidden parts"
-                              notmuch-show-reply-insert-header-p-trimmed)
+  :type '(radio (const :tag "No part headers"
+                              notmuch-show-reply-insert-header-p-never)
+               (const :tag "All except multipart/* and hidden parts"
+                              notmuch-show-reply-insert-header-p-trimmed)
                (const :tag "Only for included text parts"
                               notmuch-show-reply-insert-header-p-minimal)
                (const :tag "Exactly as in show view"
                               notmuch-show-insert-header-p)
-               (const :tag "No part headers"
-                              notmuch-show-reply-insert-header-p-never)
                (function :tag "Other"))
   :group 'notmuch-reply)