From 9dd86b0c224dd7a453fcab7ae972fc6679dcc370 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 29 Oct 2013 23:34:26 -0700 Subject: [PATCH] * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server): Silence compiler obsolescence warning. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-group.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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)) -- 2.39.5