* gnus-fun.el (gnus-convert-gray-x-face-to-xpm): Improved to speed

[gnus] / lisp / canlock.el

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."