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

obsolescence warning.

2 files changed, 11 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index beb47120241..27f863ef3c6 100644
--- 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 c8945e57531..a1bc62fb18e 100644
--- 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))