From: okada <okada>
Date: Tue, 7 Nov 2000 13:57:59 +0000 (+0000)
Subject: fix
X-Git-Tag: flim-1_14_0-pre1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16dc38607993377475bbcfbc03f141cd88d7bebc;p=elisp%2Fflim.git

fix
---

diff --git a/ChangeLog b/ChangeLog
index 6c7b949..0a40f66 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-07   Kenichi OKADA  <okada@opaopa.org>
+
+	* sasl.el (sasl-login-response-1): Fix.
+	(sasl-login-response-2): Fix.
+
 2000-11-05   Daiki Ueno  <ueno@unixuser.org>
 
 	* qmtp.el (qmtp-send-package): Don't check "K" reply per recipient.
diff --git a/sasl.el b/sasl.el
index 6c3ef2f..86187c9 100644
--- a/sasl.el
+++ b/sasl.el
@@ -235,12 +235,12 @@ It contain at least 64 bits of entropy."
     sasl-login-response-2))
 
 (defun sasl-login-response-1 (client step)
-  (unless (string= (sasl-step-data step) "Username:")
+  (unless (string-match "^user ?name." (sasl-step-data step)) ;; XXX
     (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
   (sasl-client-name client))
 
 (defun sasl-login-response-2 (client step)
-  (unless (string= (sasl-step-data step) "Password:")
+  (unless (string-match "^password." (sasl-step-data step))  ;; XXX
     (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
   (sasl-read-passphrase
    (format "LOGIN passphrase for %s: " (sasl-client-name client))))