From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Sun, 7 Apr 2024 23:36:17 +0000 (+0800)
Subject: Don't limit gnus thread searches to a single message
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bfab20f7f80dc106fff714914e4811d15b1c327b;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.

(cherry picked from commit d335f28aa9bfb85d0e35b838ca867d97ebe5b974)
---

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