X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch-show.el;h=4cde22156cf9e679c3c1f754285def579dc8896a;hb=54ec603bb4def9e4c365bf4b00e7e0b730155c9d;hp=85e03e89052f864f30dda52badb1fdac1ec6c39e;hpb=63b8a2b9af798dc9f47769e2a0c26bdb53ea16cd;p=notmuch diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 85e03e89..4cde2215 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -37,13 +37,24 @@ (declare-function notmuch-select-tag-with-completion "notmuch" (prompt &rest search-terms)) (declare-function notmuch-search-show-thread "notmuch" nil) -(defvar notmuch-show-headers '("Subject" "To" "Cc" "From" "Date") - "Headers that should be shown in a message, in this order. Note -that if this order is changed the headers shown when a message is -collapsed will change.") +(defcustom notmuch-show-headers '("Subject" "To" "Cc" "Date") + "Headers that should be shown in a message, in this order. -(defcustom notmuch-show-headers-visible nil - "Should the headers be visible by default?" +For an open message, all of these headers will be made visible +according to `notmuch-show-headers-visible' or can be toggled +with `notmuch-show-toggle-headers'. For a closed message, only +the first header in the list will be visible." + :group 'notmuch + :type '(repeat string)) + +(defcustom notmuch-show-headers-visible t + "Should the headers be visible by default? + +If this value is non-nil, then all of the headers defined in +`notmuch-show-headers' will be visible by default in the display +of each message. Otherwise, these headers will be hidden and +`notmuch-show-toggle-headers' can be used to make the visible for +any given message." :group 'notmuch :type 'boolean)