From: Andrew G Cohen Date: Sun, 7 Apr 2024 23:36:17 +0000 (+0800) Subject: Don't limit gnus thread searches to a single message X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1570 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d335f28aa9bfb85d0e35b838ca867d97ebe5b974;p=emacs.git Don't limit gnus thread searches to a single message * 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. --- diff --git a/lisp/gnus/gnus-search.el b/lisp/gnus/gnus-search.el index a967d6d71da..9cff2e2f109 100644 --- a/lisp/gnus/gnus-search.el +++ b/lisp/gnus/gnus-search.el @@ -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))