Synch with the flim-1_14 branch.

[elisp/flim.git] / sasl-cram.el

diff --git a/sasl-cram.el b/sasl-cram.el
index d778849..25d1082 100644 (file)
--- a/sasl-cram.el
+++ b/sasl-cram.el
@@ -1,9 +1,9 @@
 ;;; sasl-cram.el --- CRAM-MD5 module for the SASL client framework
 
-;; Copyright (C) 2000 Daiki Ueno
+;; Copyright (C) 2000 Free Software Foundation, Inc.
 
-;; Author: Kenichi OKADA <okada@opaopa.org>
-;;     Daiki Ueno <ueno@unixuser.org>
+;; Author: Daiki Ueno <ueno@unixuser.org>
+;;     Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: SASL, CRAM-MD5
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
@@ -32,7 +32,7 @@
   '(ignore                             ;no initial response
     sasl-cram-md5-response))
 
-(defun sasl-cram-md5-response (client continuation)
+(defun sasl-cram-md5-response (client step)
   (let ((passphrase
         (sasl-read-passphrase
          (format "CRAM-MD5 passphrase for %s: "
@@ -40,7 +40,7 @@
     (unwind-protect
        (concat (sasl-client-name client) " "
                (encode-hex-string
-                (hmac-md5 (nth 1 continuation) passphrase)))
+                (hmac-md5 (sasl-step-data step) passphrase)))
       (fillarray passphrase 0))))
 
 (put 'sasl-cram 'sasl-mechanism