From bac85fe5a5ae5d3fc8297058579167780586e43e Mon Sep 17 00:00:00 2001 From: okada Date: Sat, 11 Dec 1999 15:19:13 +0000 Subject: [PATCH] * sasl.el (TopLevel): Require `scram-md5'. --- ChangeLog | 4 ++++ sasl.el | 1 + scram-md5.el | 3 ++- 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index aebfdf3..337c768 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +1999-12-12 Kenichi OKADA + + * sasl.el (TopLevel): Require `scram-md5'. + 1999-12-11 Kenichi OKADA * 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)) -- 1.7.10.4