From: okada <okada>
Date: Sat, 11 Dec 1999 15:19:13 +0000 (+0000)
Subject: * sasl.el (TopLevel): Require `scram-md5'.
X-Git-Tag: slim-1_13_5~27
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bac85fe5a5ae5d3fc8297058579167780586e43e;p=elisp%2Fflim.git

* sasl.el (TopLevel): Require `scram-md5'.
---

diff --git a/ChangeLog b/ChangeLog
index aebfdf3..337c768 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-12  Kenichi OKADA <okada@opaopa.org>
+
+	* sasl.el (TopLevel): Require `scram-md5'.
+
 1999-12-11  Kenichi OKADA <okada@opaopa.org>
 
 	* sasl.el (sasl-scram-md5-client-msg-1): New function.
diff --git a/sasl.el b/sasl.el
index c2eb668..16d2abb 100644
--- a/sasl.el
+++ b/sasl.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'hmac-md5)
+(require 'scram-md5)
 
 ;;; CRAM-MD5
 (defun sasl-cram-md5 (username passphrase challenge)
diff --git a/scram-md5.el b/scram-md5.el
index 1d885e2..45a3ab5 100644
--- a/scram-md5.el
+++ b/scram-md5.el
@@ -94,7 +94,8 @@ If AUTHORIZE-ID is the same as AUTHENTICATE-ID, it may be omitted."
   (unwind-protect
       (hmac-md5 salt passphrase)
     ;; immediately erase plaintext passphrase from memory.
-    (fillarray passphrase 0)))
+    ;;    (fillarray passphrase 0)))
+    ))
 
 (defun scram-md5-make-client-key (salted-pass)
   (md5-binary salted-pass))