From bfab20f7f80dc106fff714914e4811d15b1c327b Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Mon, 8 Apr 2024 07:36:17 +0800 Subject: [PATCH] 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) --- 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)) -- 2.39.5