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 e59a9723509ceab3c1cc740389b7c3b6b81193ce..550f4e940a886e0a412fb91eff6b62a8adfe8e02 100644 (file)
--- 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))