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

Revert "emacs: Fix saved-search buffer titles"

Browse source 
This reverts commit bc98920917.

This was applied unintentionally to master while still under discussion.
This commit is contained in:
David Bremner 2024-08-09 10:18:54 -03:00
parent bf9b9fe046
commit 4e85abda15
1 changed files with 11 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
emacs/notmuch.el
View file

@ -973,20 +973,17 @@ unthreaded) and whether it's SAVED (t or nil)."
(defun notmuch-search-buffer-title (query &optional type)
"Returns the title for a buffer with notmuch search results."
(let* ((saved-search
(cl-loop with match
with match-length = 0
for candidate in notmuch-saved-searches
for length = (let* ((query* (notmuch-saved-search-get
candidate
:query))
(regexp (concat "^"
(regexp-quote query*))))
(and (string-match regexp query)
(length (match-string 0 query))))
if (and length (> length match-length))
do (setq match candidate
match-length length)
finally return match))
(let (longest
(longest-length 0))
(cl-loop for tuple in notmuch-saved-searches
if (let ((quoted-query
(regexp-quote
(notmuch-saved-search-get tuple :query))))
(and (string-match (concat "^" quoted-query) query)
(> (length (match-string 0 query))
longest-length)))
do (setq longest tuple))
longest))
(saved-search-name (notmuch-saved-search-get saved-search :name))
(saved-search-type (notmuch-saved-search-get saved-search :search-type))
(saved-search-query (notmuch-saved-search-get saved-search :query)))