* lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server): Silence compiler

obsolescence warning.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index beb4712..27f863e 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-30  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-group.el (gnus-group-browse-foreign-server):
+       Silence compiler obsolescence warning.
+
 2013-10-29  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * nnimap.el (nnimap-open-connection-1): `auth-source-search' for the

diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index c8945e5..a1bc62f 100644 (file)
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4398,7 +4398,12 @@ and the second element is the address."
                     ;; Suggested by mapjph@bath.ac.uk.
                     (gnus-completing-read
                      "Address"
-                     gnus-secondary-servers))
+                     ;; FIXME? gnus-secondary-servers is obsolete,
+                     ;; and it is not obvious that there is anything
+                     ;; sensible to use instead in this particular case.
+                     (if (boundp 'gnus-secondary-servers)
+                         gnus-secondary-servers
+                       (cdr gnus-select-method))))
             ;; We got a server name.
             how))))
   (gnus-browse-foreign-server method))