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

Fix gnus searching of native servers

Browse source 
* lisp/gnus/gnus-group.el (gnus-group-make-search-group):
(gnus-group-read-ephemeral-search-group):  Find the real server even
when the group is native.
This commit is contained in:
Andrew G Cohen 2022-02-18 13:56:19 +08:00
parent e87b07e277
commit 8a924c8b49
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3226,8 +3226,11 @@ non-nil SPECS arg must be an alist with `search-query-spec' and
(if (gnus-server-server-name)
(list (list (gnus-server-server-name)))
(seq-group-by
(lambda (elt) (gnus-method-to-server
(gnus-find-method-for-group elt)))
(lambda (elt)
(if (gnus-group-native-p elt)
(gnus-group-server elt)
(gnus-method-to-server
(gnus-find-method-for-group elt))))
(or gnus-group-marked
(if (gnus-group-group-name)
(list (gnus-group-group-name))
@ -3278,8 +3281,11 @@ non-nil SPECS arg must be an alist with `search-query-spec' and
(if (gnus-server-server-name)
(list (list (gnus-server-server-name)))
(seq-group-by
(lambda (elt) (gnus-method-to-server
(gnus-find-method-for-group elt)))
(lambda (elt)
(if (gnus-group-native-p elt)
(gnus-group-server elt)
(gnus-method-to-server
(gnus-find-method-for-group elt))))
(or gnus-group-marked
(if (gnus-group-group-name)
(list (gnus-group-group-name))