From: David Edmondson <dme@dme.org>
Date: Wed, 8 Feb 2012 08:02:18 +0000 (+0000)
Subject: emacs: Add `notmuch-show-only-matching-messages'.
X-Git-Tag: debian/0.12_rc1-1~84
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=866ce8b1;p=notmuch.git

emacs: Add `notmuch-show-only-matching-messages'.

Allow the user to choose that only matching messages are shown by
default.
---

diff --git a/emacs/notmuch-show.el b/emacs/notmuch-show.el
index 0b023a5c..7ffa1ed1 100644
--- a/emacs/notmuch-show.el
+++ b/emacs/notmuch-show.el
@@ -126,6 +126,11 @@ indentation."
 		 (const :tag "View interactively"
 			notmuch-show-interactively-view-part)))
 
+(defcustom notmuch-show-only-matching-messages nil
+  "Only matching messages are shown by default."
+  :type 'boolean
+  :group 'notmuch-show)
+
 (defvar notmuch-show-thread-id nil)
 (make-variable-buffer-local 'notmuch-show-thread-id)
 (put 'notmuch-show-thread-id 'permanent-local t)
@@ -1032,6 +1037,9 @@ function is used."
     ;; Set the default value for `notmuch-show-process-crypto' in this
     ;; buffer.
     (setq notmuch-show-process-crypto notmuch-crypto-process-mime)
+    ;; Set the default value for
+    ;; `notmuch-show-elide-non-matching-messages' in this buffer.
+    (setq notmuch-show-elide-non-matching-messages notmuch-show-only-matching-messages)
 
     (setq notmuch-show-thread-id thread-id
 	  notmuch-show-parent-buffer parent-buffer