From 8056c23b690671924fb9d3912071e4e70e38e0f0 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 16 Apr 2000 12:22:56 +0000 Subject: [PATCH] sasl.el (sasl-scram-md5-client-security-info): eval-when-compile. --- ChangeLog | 4 ++++ sasl.el | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7898cc5..f0b75ac 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-04-16 Kenichi OKADA + + * sasl.el (sasl-scram-md5-client-security-info): eval-when-compile. + 2000-02-03 Kenichi OKADA * smtp.el (TopLevel): Autoload `sasl-digest-md5-digest-response'. diff --git a/sasl.el b/sasl.el index 3e78040..dd07f13 100644 --- a/sasl.el +++ b/sasl.el @@ -82,8 +82,8 @@ (concat authorid "\0" authenid "\0" passphrase)) ;;; SCRAM-MD5 -(eval-when-compile - (defvar sasl-scram-md5-client-security-info +(defvar sasl-scram-md5-client-security-info + (eval-when-compile (scram-make-security-info nil t 0))) (defun sasl-scram-md5-make-salted-pass (server-msg-1 passphrase) @@ -121,7 +121,7 @@ client-proof) (fillarray client-proof 0)))) -(defun sasl-scram-md5-authenticate-server (server-msg-1 +(defun sasl-scram-md5-authenticate-server (server-msg-1 server-msg-2 client-msg-1 salted-pass) -- 1.7.10.4