From: keiichi <keiichi>
Date: Wed, 25 Nov 1998 04:10:17 +0000 (+0000)
Subject: (pop3-authentication-scheme-alist): New variable.
X-Git-Tag: keiichi-199811302358~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=de1bccc1ea0f177d75abeb6dc6191558e83d1796;p=elisp%2Fgnus.git-

(pop3-authentication-scheme-alist): New variable.
(pop3-movemail): Search authentication scheme from
`pop3-authentication-scheme-alist'.
---

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 55c2f65..7756da3 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -56,6 +56,9 @@
 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.")
@@ -74,6 +77,7 @@ Used for APOP authentication.")
 	 (n 1)
 	 message-count
 	 (pop3-password pop3-password)
+	 (pop3-authentication-scheme pop3-authentication-scheme)
 	 )
     ;; for debugging only
     (if pop3-debug (switch-to-buffer (process-buffer process)))
@@ -81,6 +85,10 @@ Used for APOP authentication.")
     (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)