(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
(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"