fix

[elisp/flim.git] / sha1.el

diff --git a/sha1.el b/sha1.el
index 61bba55..24a3af5 100644 (file)
--- a/sha1.el
+++ b/sha1.el
@@ -3,6 +3,8 @@
 ;; Copyright (C) 1999 Shuhei KOBAYASHI
 
 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+;;     Kenichi OKADA <okada@opaopa.org>
+;; Maintainer: Kenichi OKADA <okada@opaopa.org>
 ;; Keywords: SHA1, FIPS 180-1
 
 ;; This file is part of FLIM (Faithful Library about Internet Message).
@@ -38,6 +40,12 @@
 
 ;;; Code:
 
+(require 'hex-util)
+
+(eval-when-compile
+  (or (fboundp 'sha1-string)
+      (defun sha1-string (a))))
+
 (defvar sha1-dl-module
   (if (and (fboundp 'sha1-string)
           (subrp (symbol-function 'sha1-string)))
@@ -54,8 +62,16 @@
  (t
   (require 'sha1-el)))
 
-(defalias 'sha1-encode 'sha1-string)
-(defalias 'sha1-encode-binary 'sha1-string)
+;; compatibility for another sha1.el by Keiichi Suzuki.
+(defun sha1-encode (string)
+  (decode-hex-string 
+   (sha1-string string)))
+(defun sha1-encode-binary (string)
+  (decode-hex-string
+   (sha1-string string)))
+
+(make-obsolete 'sha1-encode "It's old API.")
+(make-obsolete 'sha1-encode-binary "It's old API.")
 
 (provide 'sha1)