From 0bad8fa3dba34ac5b4ac0099c7ba0e3b8a9b03e8 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 19 Nov 2000 20:51:57 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-network-authenticate-session): Split encoded response value. --- elmo/ChangeLog | 5 +++++ elmo/elmo-pop3.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 8bc29dc..fc0d4f5 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,10 @@ 2000-11-19 Kenichi OKADA + * elmo-pop3.el (elmo-network-authenticate-session): Split + encoded response value. + +2000-11-19 Kenichi OKADA + * elmo-pop3.el (elmo-network-authenticate-session): Abolish `elmo-pop3-force-login'. Redefine `sasl-mechanisms'. diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index daffa0b..cd20ee7 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -309,7 +309,11 @@ (sasl-step-data step) 'no-line-break)))))) (catch 'done (while t - (setq response (elmo-pop3-read-response process t)) + (unless (setq response (elmo-pop3-read-response process t)) + (signal 'elmo-authenticate-error + (list (intern + (concat "elmo-pop3-auth-" + (downcase name)))))) (if (string-match "^\+OK" response) (if (sasl-next-step client step) (signal 'elmo-authenticate-error @@ -319,7 +323,8 @@ (throw 'done nil))) (sasl-step-set-data step - (elmo-base64-decode-string response)) + (elmo-base64-decode-string + (cadr (split-string response " ")))) (setq step (sasl-next-step client step)) (elmo-pop3-send-command process -- 1.7.10.4