From 21e2b73416fe03dfedfba2f2e620978c492da886 Mon Sep 17 00:00:00 2001 From: shuhei Date: Mon, 26 Feb 2001 10:23:17 +0000 Subject: [PATCH] Modify comments. (sha1-binary): Comment out. --- mail/hmac-sha1.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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) -- 1.7.10.4