From: shuhei <shuhei>
Date: Mon, 26 Feb 2001 10:23:17 +0000 (+0000)
Subject: Modify comments.
X-Git-Tag: semi21-shuhei-2001-02-26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=21e2b73416fe03dfedfba2f2e620978c492da886;p=elisp%2Flemi.git

Modify comments.
(sha1-binary): Comment out.
---

diff --git a/mail/hmac-sha1.el b/mail/hmac-sha1.el
index 9992694..00fe338 100644
--- a/mail/hmac-sha1.el
+++ b/mail/hmac-sha1.el
@@ -44,6 +44,7 @@
 ;; (encode-hex-string
 ;;  (hmac-sha1 "Test With Truncation" (make-string 20 ?\x0c)))
 ;;  => "4c1a03424b55e07fe7f27be1d58bb9324a9a5a04"
+;;
 ;; (encode-hex-string
 ;;  (hmac-sha1-96 "Test With Truncation" (make-string 20 ?\x0c)))
 ;;  => "4c1a03424b55e07fe7f27be1"
@@ -64,11 +65,11 @@
 
 (eval-when-compile (require 'hmac-def))
 (require 'hex-util)			; (decode-hex-string STRING)
-(require 'sha1)				; expects (sha1 STRING)
+(require 'sha1)				; expects (sha1-binary STRING)
 
-(defun sha1-binary (string)
-  "Return the SHA1 of STRING in binary form."
-  (decode-hex-string (sha1 string)))
+;;; (defun sha1-binary (string)
+;;;   "Return the SHA1 of STRING in binary form."
+;;;   (decode-hex-string (sha1 string)))
 
 (define-hmac-function hmac-sha1 sha1-binary 64 20) ; => (hmac-sha1 TEXT KEY)
 ;; (define-hmac-function hmac-sha1-96 sha1-binary 64 20 96)