From 16dc38607993377475bbcfbc03f141cd88d7bebc Mon Sep 17 00:00:00 2001 From: okada Date: Tue, 7 Nov 2000 13:57:59 +0000 Subject: [PATCH] fix --- ChangeLog | 5 +++++ sasl.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6c7b949..0a40f66 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2000-11-07 Kenichi OKADA + + * sasl.el (sasl-login-response-1): Fix. + (sasl-login-response-2): Fix. + 2000-11-05 Daiki Ueno * 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)))) -- 1.7.10.4