From 37ea7de960425d151214cb49d07187c6d52dc8c0 Mon Sep 17 00:00:00 2001 From: keiichi Date: Mon, 2 Aug 1999 05:01:11 +0000 Subject: [PATCH] (pop3-authentication-scheme-alist): Abolished. (pop3-movemail): Do not use `pop3-authentication-scheme-alist'. --- lisp/pop3.el | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) 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) -- 1.7.10.4