* 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 beb47120241d31b2979f537ba847564252185e02..27f863ef3c6b758aa8080802b9875951fe26a58a 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 c8945e57531bcc85f170113464811667a7032610..a1bc62fb18e3dbbdf2da533e7fe5c92594eee203 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))