(mime-write-entity-body): Use `binary-write-region' instead of

[elisp/flim.git] / sasl.el

diff --git a/sasl.el b/sasl.el
index 6c3ef2f..8528898 100644 (file)
--- a/sasl.el
+++ b/sasl.el
@@ -1,6 +1,6 @@
 ;;; sasl.el --- SASL client framework
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
 ;; Author: Daiki Ueno <ueno@unixuser.org>
 ;; Keywords: SASL
@@ -235,13 +235,13 @@ 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:")
-    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
+;;;  (unless (string-match "^Username:" (sasl-step-data step))
+;;;    (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:")
-    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
+;;;  (unless (string-match "^Password:" (sasl-step-data step))
+;;;    (sasl-error (format "Unexpected response: %s" (sasl-step-data step))))
   (sasl-read-passphrase
    (format "LOGIN passphrase for %s: " (sasl-client-name client))))
 
@@ -252,7 +252,7 @@ It contain at least 64 bits of entropy."
 
 ;;; ANONYMOUS (RFC2245)
 (defconst sasl-anonymous-steps
-  '(identity                           ;no initial response
+  '(ignore                             ;no initial response
     sasl-anonymous-response))
 
 (defun sasl-anonymous-response (client step)