From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 26 Sep 2019 22:43:43 +0000 (+0200)
Subject: Fix nnir searching on nested Gnus topics
X-Git-Tag: emacs-27.0.90~1413
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a63e922e80edbcf09c00fd67b32dcb7e46e172f;p=emacs.git

Fix nnir searching on nested Gnus topics

* lisp/gnus/nnir.el (gnus-group-make-nnir-group): On a topic line,
search all the groups, even in sub-topics (bug#28090).
---

diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el
index b695cfa4f6d..3625302841a 100644
--- a/lisp/gnus/nnir.el
+++ b/lisp/gnus/nnir.el
@@ -593,6 +593,8 @@ Add an entry here when adding a new search engine.")
 ;; Gnus glue.
 
 (declare-function gnus-group-topic-name "gnus-topic" ())
+(declare-function gnus-topic-find-groups "gnus-topic"
+		  (topic &optional level all lowest recursive))
 
 (defun gnus-group-make-nnir-group (nnir-extra-parms &optional specs)
   "Create an nnir group.  Prompt for a search query and determine
@@ -613,7 +615,9 @@ skips all prompting."
 	       (or gnus-group-marked
 		   (if (gnus-group-group-name)
 		       (list (gnus-group-group-name))
-		     (cdr (assoc (gnus-group-topic-name) gnus-topic-alist))))
+		     (mapcar (lambda (entry)
+			       (gnus-info-group (cadr entry)))
+			     (gnus-topic-find-groups (gnus-group-topic-name)))))
 	       gnus-group-server))))
 	 (query-spec
 	  (or (cdr (assq 'nnir-query-spec specs))