* elmo-pop3.el (elmo-network-authenticate-session): Split

	encoded response value.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8bc29dc..fc0d4f5 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,10 @@
 2000-11-19  Kenichi OKADA  <okada@opaopa.org>
 
+       * elmo-pop3.el (elmo-network-authenticate-session): Split 
+       encoded response value.
+
+2000-11-19  Kenichi OKADA  <okada@opaopa.org>
+
        * 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 (file)
--- 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