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

diff --git a/ChangeLog b/ChangeLog
index aebfdf3..337c768 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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))