procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't limit gnus thread searches to a single message

Browse source 
* lisp/gnus/gnus-search.el (gnus-search-single-p): Searches for a
single message id finish after finding this one message; thread searches
continue until all messages are found.
This commit is contained in:
Andrew G Cohen 2024-04-08 07:36:17 +08:00
parent 006d5b70f3
commit d335f28aa9
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/gnus/gnus-search.el
View file

@ -1002,10 +1002,11 @@ Responsible for handling and, or, and parenthetical expressions.")
(defsubst gnus-search-single-p (query)
"Return t if QUERY is a search for a single message."
(let ((q (alist-get 'parsed-query query)))
(and (= (length q ) 1)
(consp (car-safe q))
(eq (caar q) 'id))))
(unless (alist-get 'thread query)
(let ((q (alist-get 'parsed-query query)))
(and (= (length q ) 1)
(consp (car-safe q))
(eq (caar q) 'id)))))
(cl-defmethod gnus-search-transform ((engine gnus-search-engine)
(query list))