[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1a63e92: Fix nnir searching on nested Gnus topics
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 1a63e92: Fix nnir searching on nested Gnus topics |
Date: |
Thu, 26 Sep 2019 18:43:53 -0400 (EDT) |
branch: master
commit 1a63e922e80edbcf09c00fd67b32dcb7e46e172f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 b695cfa..3625302 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1a63e92: Fix nnir searching on nested Gnus topics,
Lars Ingebrigtsen <=