From 63b8a2b9af798dc9f47769e2a0c26bdb53ea16cd Mon Sep 17 00:00:00 2001 From: David Edmondson Date: Fri, 23 Apr 2010 12:54:21 +0100 Subject: [PATCH] emacs: Allow headers to be shown by default in show mode Add `notmuch-show-headers-visible' which, when set `t', causes headers to be shown by default. --- emacs/notmuch-show.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el index 203528fd..85e03e89 100644 --- a/emacs/notmuch-show.el +++ b/emacs/notmuch-show.el @@ -42,6 +42,11 @@ that if this order is changed the headers shown when a message is collapsed will change.") +(defcustom notmuch-show-headers-visible nil + "Should the headers be visible by default?" + :group 'notmuch + :type 'boolean) + (defvar notmuch-show-markup-headers-hook '(notmuch-show-colour-headers) "A list of functions called to decorate the headers listed in `notmuch-show-headers'.") @@ -416,8 +421,8 @@ current buffer, if possible." ;; the content). (notmuch-show-set-message-properties msg) - ;; Headers are hidden by default. - (notmuch-show-headers-visible msg nil) + ;; Set header visibility. + (notmuch-show-headers-visible msg notmuch-show-headers-visible) ;; Message visibility depends on whether it matched the search ;; criteria.