emacs/notmuch.el: Improve tag highlighting in search mode

Assume that tags never include an opening bracket, and hence improve
the regular expression used to highlight them. This avoids false
matches where the 'from' address of a thread participant includes an
opening bracket.
This commit is contained in:
David Edmondson 2010-03-23 07:04:34 +00:00 committed by Carl Worth
parent d3884a5984
commit e33b73819a

View file

@ -1359,7 +1359,7 @@ Complete list of currently available key bindings:
(setq buffer-read-only t) (setq buffer-read-only t)
(if (not notmuch-tag-face-alist) (if (not notmuch-tag-face-alist)
(add-to-list 'notmuch-search-font-lock-keywords (list (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))) (let ((notmuch-search-tags (mapcar 'car notmuch-tag-face-alist)))
(loop for notmuch-search-tag in notmuch-search-tags (loop for notmuch-search-tag in notmuch-search-tags
do (add-to-list 'notmuch-search-font-lock-keywords (list do (add-to-list 'notmuch-search-font-lock-keywords (list