From 79175d51828bea5f30f743f819a9f52fa34a60cb Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 19 Nov 2000 19:57:29 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-network-authenticate-session): Abolish `elmo-pop3-force-login'. Redefine `sasl-mechanisms'. * elmo-vars.el (elmo-pop3-force-login): Ditto. --- elmo/ChangeLog | 7 +++++++ elmo/elmo-pop3.el | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index a330095..8bc29dc 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,12 @@ 2000-11-19 Kenichi OKADA + * elmo-pop3.el (elmo-network-authenticate-session): Abolish + `elmo-pop3-force-login'. + Redefine `sasl-mechanisms'. + * elmo-vars.el (elmo-pop3-force-login): Ditto. + +2000-11-19 Kenichi OKADA + * elmo-imap4.el (toplevel): Delete defun-maybe for sasl-*. Delete `elmo-imap4-authenticator-alist'. (elmo-imap4-auth-cram-md5): Delete. diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 30eb8cc..ac5b30c 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -266,10 +266,10 @@ sasl-mechanism-alist (list '("USER" sasl-pop3-user) '("APOP" sasl-pop3-apop)))) + (sasl-mechanisms + (append sasl-mechanisms (list "USER" "APOP"))) (mechanism - (if (eq auth 'any) - (sasl-find-mechanism sasl-mechanisms) - (sasl-find-mechanism auth))) + (sasl-find-mechanism auth)) client name step response sasl-read-passphrase) (unless mechanism -- 1.7.10.4