X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=emacs%2Fnotmuch.el;h=f887916cb4d14ec227bcc713dea483b717210031;hb=03588ee710454d4a9da43efa0e8954f70b21327d;hp=439303a77d3a6d3b7de679f2facb7c9b97aefe59;hpb=b957a1b029d27c6b2ecd352dbacde3d9d164666f;p=notmuch

diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index 439303a7..f887916c 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -1359,7 +1359,7 @@ Complete list of currently available key bindings:
   (setq buffer-read-only t)
   (if (not notmuch-tag-face-alist)
       (add-to-list 'notmuch-search-font-lock-keywords (list
-		"(\\([^)]*\\))$" '(1  'notmuch-tag-face)))
+		"(\\([^()]*\\))$" '(1  'notmuch-tag-face)))
     (let ((notmuch-search-tags (mapcar 'car notmuch-tag-face-alist)))
       (loop for notmuch-search-tag  in notmuch-search-tags
 	    do (add-to-list 'notmuch-search-font-lock-keywords (list
@@ -1733,7 +1733,8 @@ Currently available key bindings:
 (defun notmuch-folder-count (search)
   (car (process-lines notmuch-command "count" search)))
 
-(setq notmuch-folder-show-empty t)
+(defvar notmuch-folder-show-empty t
+  "Whether `notmuch-folder-mode' should display empty folders.")
 
 (defun notmuch-folder-show-empty-toggle ()
   "Toggle the listing of empty folders"