From: keiichi <keiichi>
Date: Mon, 2 Aug 1999 05:01:11 +0000 (+0000)
Subject: (pop3-authentication-scheme-alist): Abolished.
X-Git-Tag: nana-gnus-6_13_4b3-~12
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=37ea7de960425d151214cb49d07187c6d52dc8c0;p=elisp%2Fgnus.git-

(pop3-authentication-scheme-alist): Abolished.
(pop3-movemail): Do not use `pop3-authentication-scheme-alist'.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 0a46216..b6132e9 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -56,9 +56,6 @@
 Defaults to 'pass, for the standard USER/PASS authentication.  Other valid
 values are 'apop.")
 
-(defvar pop3-authentication-scheme-alist nil
-  "*Alist of host and POP3 authentication scheme.")
-
 (defvar pop3-timestamp nil
   "Timestamp returned when initially connected to the POP server.
 Used for APOP authentication.")
@@ -72,20 +69,13 @@ Used for APOP authentication.")
   (let* ((process (pop3-open-server pop3-mailhost pop3-port))
 	 (crashbuf (get-buffer-create " *pop3-retr*"))
 	 (n 1)
-	 message-count
-	 (pop3-password pop3-password)
-	 (pop3-authentication-scheme pop3-authentication-scheme)
-	 )
+	 message-count)
     ;; for debugging only
     (if pop3-debug (switch-to-buffer (process-buffer process)))
     ;; query for password
     (if (and pop3-password-required (not pop3-password))
 	(setq pop3-password
 	      (pop3-read-passwd (format "Password for %s: " pop3-maildrop))))
-    (let ((tmp-scheme (cdr (assoc pop3-mailhost
-				  pop3-authentication-scheme-alist))))
-      (when tmp-scheme
-	(setq pop3-authentication-scheme tmp-scheme)))
     (cond ((equal 'apop pop3-authentication-scheme)
 	   (pop3-apop process pop3-maildrop))
 	  ((equal 'pass pop3-authentication-scheme)