procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make sure Gnus search groups search topics recursively

Browse source 
* lisp/gnus/gnus-group.el (gnus-group-make-search-group,
gnus-group-read-ephemeral-search-group): If a search is initiated from
a topic line, make sure we get all the groups under that topic (and
under sub-topics).
This commit is contained in:
Eric Abrahamsen 2020-11-12 20:02:09 -08:00
parent 51c29b7b0d
commit bb28f8b9d1
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/gnus-group.el
View file

@ -52,6 +52,8 @@
(autoload 'gnus-cloud-upload-all-data "gnus-cloud") (autoload 'gnus-cloud-upload-all-data "gnus-cloud")
(autoload 'gnus-cloud-download-all-data "gnus-cloud") (autoload 'gnus-cloud-download-all-data "gnus-cloud")
(autoload 'gnus-topic-find-groups "gnus-topic")
(defcustom gnus-no-groups-message "No news is good news" (defcustom gnus-no-groups-message "No news is good news"
"Message displayed by Gnus when no groups are available." "Message displayed by Gnus when no groups are available."
:group 'gnus-start :group 'gnus-start
@ -3194,8 +3196,10 @@ non-nil SPECS arg must be an alist with `search-query-spec' and
(or gnus-group-marked (or gnus-group-marked
(if (gnus-group-group-name) (if (gnus-group-group-name)
(list (gnus-group-group-name)) (list (gnus-group-group-name))
(cdr (mapcar #'caadr
(assoc (gnus-group-topic-name) gnus-topic-alist)))))))) (gnus-topic-find-groups
(gnus-group-topic-name)
nil 'all nil t))))))))
(query-spec (query-spec
(or (or
(cdr (assq 'search-query-spec specs)) (cdr (assq 'search-query-spec specs))
@ -3243,8 +3247,10 @@ non-nil SPECS arg must be an alist with `search-query-spec' and
(or gnus-group-marked (or gnus-group-marked
(if (gnus-group-group-name) (if (gnus-group-group-name)
(list (gnus-group-group-name)) (list (gnus-group-group-name))
(cdr (mapcar #'caadr
(assoc (gnus-group-topic-name) gnus-topic-alist)))))))) (gnus-topic-find-groups
(gnus-group-topic-name)
nil 'all nil t))))))))
(query-spec (query-spec
(or (cdr (assq 'search-query-spec specs)) (or (cdr (assq 'search-query-spec specs))
(cdr (assq 'nnir-query-spec specs)) (cdr (assq 'nnir-query-spec specs))