debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Rename search buffers with "saved-search" not "folder"

Browse source 
Since we recently renamed everything from notmuch-folders to
notmuch-saved-searches, fix up the generated names in the search
buffers to match.
This commit is contained in:
Carl Worth 2010-04-26 22:58:46 -07:00
parent f2ebe3ac44
commit 6731ab1037
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
emacs/notmuch.el
View file

@ -662,19 +662,19 @@ 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) "$")
query))
(notmuch-saved-searches)))
(folder-name (car folder))
(folder-query (cdr folder)))
(cond ((and folder (equal folder-query query))
;; Query is the same as folder search (ignoring case)
(concat "*notmuch-folder-" folder-name "*"))
(folder
(let* ((saved-search (rassoc-if (lambda (key)
(string-match (concat "^" (regexp-quote key) "$")
query))
(notmuch-saved-searches)))
(saved-search-name (car saved-search))
(saved-search-query (cdr saved-search)))
(cond ((and saved-search (equal saved-search-query query))
;; Query is the same as saved search (ignoring case)
(concat "*notmuch-saved-search-" saved-search-name "*"))
(saved-search
(concat "*notmuch-search-"
(replace-regexp-in-string (concat "^" (regexp-quote folder-query))
(concat "[ " folder-name " ]")
(replace-regexp-in-string (concat "^" (regexp-quote saved-search-query))
(concat "[ " saved-search-name " ]")
query)
"*"))
(t