gnus-group.el (gnus-group-browse-foreign-server):

gnus-int.el (gnus-start-news-server): Silence compiler obsolescence warning

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87ff855..d8109ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-10-30  Glenn Morris  <rgm@gnu.org>
+
+       * gnus-group.el (gnus-group-browse-foreign-server):
+       * gnus-int.el (gnus-start-news-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-group.el b/lisp/gnus-group.el
index c8945e5..a1bc62f 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/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))

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 2de6ce0..d0aca8f 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -113,7 +113,8 @@ If CONFIRM is non-nil, the user will be asked for an NNTP server."
        (setq gnus-nntp-server
              (gnus-completing-read "NNTP server"
                                     (cons gnus-nntp-server
-                                          gnus-secondary-servers)
+                                         (if (boundp 'gnus-secondary-servers)
+                                             gnus-secondary-servers))
                                     nil gnus-nntp-server)))
 
       (when (and gnus-nntp-server