From 1a63e922e80edbcf09c00fd67b32dcb7e46e172f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 27 Sep 2019 00:43:43 +0200 Subject: [PATCH] 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). --- lisp/gnus/nnir.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)) -- 2.39.2