(canlock-make-cancel-key): Base64 encode unibyte string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcc450c..8f56acf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2002-01-21  Simon Josefsson  <jas@extundo.com>
 
        * canlock.el (base64-encode-string): Autoload it from base64.
+       (canlock-make-cancel-key): Base64 encode unibyte string.
 
 2002-01-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/canlock.el b/lisp/canlock.el
index fff3b0c..e8eb67c 100644 (file)
--- a/lisp/canlock.el
+++ b/lisp/canlock.el
@@ -155,12 +155,13 @@ If ARGS, PROMPT is used as an argument to `format'."
                           (char-to-string (logxor 92 char)))
                         password "")))
     (base64-encode-string
-     (funcall canlock-sha1-function
-             (concat
-              opad
-              (funcall canlock-sha1-function
-                       (concat ipad
-                               (canlock-string-as-unibyte message-id))))))))
+     (canlock-string-as-unibyte
+      (funcall canlock-sha1-function
+              (concat
+               opad
+               (funcall canlock-sha1-function
+                        (concat ipad
+                                (canlock-string-as-unibyte message-id)))))))))
 
 (defun canlock-narrow-to-header ()
   "Narrow the buffer to the head of the message."