master 69223ee975: Delete obsolete variable gnus-secondary-servers

[Stefan Kangas]

branch: master
commit 69223ee97539a73dfd7eef9607e0d3a3911ea93b
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Delete obsolete variable gnus-secondary-servers
    
    * lisp/gnus/gnus.el (gnus-secondary-servers): Delete variable
    obsolete since 24.1.
    * lisp/gnus/gnus-group.el (gnus-group-browse-foreign-server):
    * lisp/gnus/gnus-int.el (gnus-start-news-server): Don't use above
    deleted variable.
---
 etc/NEWS                | 5 +++--
 lisp/gnus/gnus-group.el | 8 +++++---
 lisp/gnus/gnus-int.el   | 5 +----
 lisp/gnus/gnus.el       | 8 --------
 4 files changed, 9 insertions(+), 17 deletions(-)

diff --git a/etc/NEWS b/etc/NEWS
index ba6692aace..d99d0a008e 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -2317,8 +2317,9 @@ This change is now applied in 'dired-insert-directory'.
 'font-lock-maximum-size', 'gnus-carpal',
 'gnus-debug-exclude-variables', 'gnus-debug-files',
 'gnus-local-domain', 'gnus-outgoing-message-group',
-'gnus-registry-user-format-function-M', 'image-extension-data',
-'image-library-alist', 'inhibit-first-line-modes-regexps',
+'gnus-secondary-servers', 'gnus-registry-user-format-function-M',
+'image-extension-data', 'image-library-alist',
+'inhibit-first-line-modes-regexps',
 'inhibit-first-line-modes-suffixes', 'intdos',
 'mail-complete-function', 'mail-completion-at-point-function',
 'mail-mailer-swallows-blank-line', 'mail-sent-via', 'make-register',
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 04d19e29a3..a6b6c4a6cd 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -4532,9 +4532,11 @@ and the second element is the address."
                      ;; 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))))
+                      ;; (if (boundp 'gnus-secondary-servers)
+                      ;;     gnus-secondary-servers
+                      ;;   (cdr gnus-select-method))
+                      nil
+                      ))
             ;; We got a server name.
             how)))
    gnus-group-mode)
diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index f00f2a0d04..a85510ba91 100644
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -114,10 +114,7 @@ If CONFIRM is non-nil, the user will be asked for an NNTP 
server."
        ;; Read server name with completion.
        (setq gnus-nntp-server
              (gnus-completing-read "NNTP server"
-                                    (cons gnus-nntp-server
-                                         (if (boundp 'gnus-secondary-servers)
-                                             gnus-secondary-servers))
-                                    nil gnus-nntp-server)))
+                                    nil nil gnus-nntp-server)))
 
       (when (and gnus-nntp-server
                 (stringp gnus-nntp-server)
diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el
index 7eea08f174..8221f3017a 100644
--- a/lisp/gnus/gnus.el
+++ b/lisp/gnus/gnus.el
@@ -1110,14 +1110,6 @@ that case, just return a fully prefixed name of the 
group --
                 sexp
                 string))
 
-(defcustom gnus-secondary-servers nil
-  "List of NNTP servers that the user can choose between interactively.
-To make Gnus query you for a server, you have to give `gnus' a
-non-numeric prefix - `\\[universal-argument] \\[gnus]', in short."
-  :group 'gnus-server
-  :type '(repeat string))
-(make-obsolete-variable 'gnus-secondary-servers 'gnus-select-method "24.1")
-
 (defcustom gnus-secondary-select-methods nil
   "A list of secondary methods that will be used for reading news.
 This is a list where each element is a complete select method (see