2001-11-26 Katsumi Yamaoka <yamaoka@jpl.org>

	* canlock.el: Remove sha1.el and base64.el stuff.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f9fe77a..349e665 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-26  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * canlock.el: Remove sha1.el and base64.el stuff.
+
 2001-11-26  Didier Verna  <didier@xemacs.org>
 
        * nnmbox.el (nnmbox-create-mbox): create the mbox file directory

diff --git a/lisp/canlock.el b/lisp/canlock.el
index f1d5b6a..f24a88e 100644 (file)
--- a/lisp/canlock.el
+++ b/lisp/canlock.el
@@ -45,8 +45,6 @@
   (require 'cl))
 
 (autoload 'sha1-binary "sha1-el")
-(autoload 'sha1-encode-binary "sha1")
-(autoload 'base64-encode "base64")
 
 (defgroup canlock nil
   "The Cancel-Lock feature."
@@ -54,16 +52,14 @@
 
 (defcustom canlock-sha1-function 'sha1-binary
   "Function to call to make a SHA-1 message digest."
-  :type '(radio (function-item sha1-encode-binary)
-               (function-item sha1-binary)
+  :type '(radio (function-item sha1-binary)
                (function-item canlock-sha1-with-openssl)
                (function :tag "Other"))
   :group 'canlock)
 
 (defcustom canlock-sha1-function-for-verify canlock-sha1-function
   "Function to call to make a SHA-1 message digest for verifying."
-  :type '(radio (function-item sha1-encode-binary)
-               (function-item sha1-binary)
+  :type '(radio (function-item sha1-binary)
                (function-item canlock-sha1-with-openssl)
                (function :tag "Other"))
   :group 'canlock)