From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Fri, 18 Feb 2022 05:56:19 +0000 (+0800)
Subject: Fix gnus searching of native servers
X-Git-Tag: emacs-29.0.90~2254
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a924c8b49e6d7db74ec28120c05d3295eaed541;p=emacs.git

Fix gnus searching of native servers

* 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.
---

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index e59a9723509..550f4e940a8 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -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))