master d335f28aa9b: Don't limit gnus thread searches to a single message

[Andrew G Cohen]

branch: master
commit d335f28aa9bfb85d0e35b838ca867d97ebe5b974
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>

    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.
---
 lisp/gnus/gnus-search.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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))