master 8a924c8b49: Fix gnus searching of native servers

[Andrew G Cohen]

branch: master
commit 8a924c8b49e6d7db74ec28120c05d3295eaed541
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>

    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.
---
 lisp/gnus/gnus-group.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index e59a972350..550f4e940a 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))