emacs: Match entire saved-search when computing search-view buffer name

I happen to have a lot of saved searches that are variants of the
tag:inbox search, (such as "tag:inbox and tag:notmuch"). The logic for
these was always matching inbox first, resulting in "[ inbox ] and
tag:notmuch" rather than "notmuch" as desired.

Anchor the regular expression on both ends to make it look harder for
the better match.
This commit is contained in:
Carl Worth 2010-04-26 22:49:45 -07:00
parent a466921760
commit f2ebe3ac44

View file

@ -663,7 +663,7 @@ characters as well as `_.+-'.
(defun notmuch-search-buffer-title (query)
"Returns the title for a buffer with notmuch search results."
(let* ((folder (rassoc-if (lambda (key)
(string-match (concat "^" (regexp-quote key))
(string-match (concat "^" (regexp-quote key) "$")
query))
(notmuch-saved-searches)))
(folder-name (car folder))