From: 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/cgi-bin/gitweb.cgi?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)