[Emacs-diffs] trunk r114863: * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server): Silence compiler

[Glenn Morris]

------------------------------------------------------------
revno: 114863
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-10-29 23:34:26 -0700
message:
  * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server): Silence compiler
  obsolescence warning.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-group.el        
gnusgroup.el-20091113204419-o5vbwnq5f7feedwu-1120

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-10-29 13:54:16 +0000
+++ b/lisp/gnus/ChangeLog       2013-10-30 06:34:26 +0000
@@ -1,3 +1,8 @@
+2013-10-30  Glenn Morris  <address@hidden>
+
+       * gnus-group.el (gnus-group-browse-foreign-server):
+       Silence compiler obsolescence warning.
+
 2013-10-29  Teodor Zlatanov  <address@hidden>
 
        * nnimap.el (nnimap-open-connection-1): `auth-source-search' for the

=== modified file 'lisp/gnus/gnus-group.el'
--- a/lisp/gnus/gnus-group.el   2013-09-11 03:31:56 +0000
+++ b/lisp/gnus/gnus-group.el   2013-10-30 06:34:26 +0000
@@ -4398,7 +4398,12 @@
                     ;; Suggested by address@hidden
                     (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))