From: Glenn Morris Date: Wed, 30 Oct 2013 06:34:26 +0000 (-0700) Subject: * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server): Silence compiler X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1068 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dd86b0c224dd7a453fcab7ae972fc6679dcc370;p=emacs.git * 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 beb47120241..27f863ef3c6 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-10-30 Glenn Morris + + * gnus-group.el (gnus-group-browse-foreign-server): + Silence compiler obsolescence warning. + 2013-10-29 Teodor Zlatanov * 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))