diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-27 00:43:43 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-09-27 00:43:43 +0200 |
commit | 1a63e922e80edbcf09c00fd67b32dcb7e46e172f (patch) | |
tree | 2c3495e615e787bd0c27221afbd6b427a7e6cf5f | |
parent | 8e36ddfd44488e5194d26b34ad7405f92f838767 (diff) | |
download | emacs-1a63e922e80edbcf09c00fd67b32dcb7e46e172f.tar.gz |
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).
-rw-r--r-- | lisp/gnus/nnir.el | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |