From: shuhei <shuhei>
Date: Sun, 25 Feb 2001 14:26:59 +0000 (+0000)
Subject: Update Copyright header.
X-Git-Tag: semi21-shuhei-2001-02-26~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64ed15da51e647ba2f49f3b9a59e0f6ea948c164;p=elisp%2Flemi.git

Update Copyright header.
(sha1-binary): Define it unconditionally.
---

diff --git a/mail/hmac-sha1.el b/mail/hmac-sha1.el
index 6b2beea..9992694 100644
--- a/mail/hmac-sha1.el
+++ b/mail/hmac-sha1.el
@@ -1,6 +1,6 @@
 ;;; hmac-sha1.el --- Compute HMAC-SHA1.
 
-;; Copyright (C) 1999 Shuhei KOBAYASHI
+;; Copyright (C) 1999, 2001  Free Software Foundation, Inc.
 
 ;; Author: Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
 ;; Keywords: HMAC, RFC 2104, HMAC-SHA1, SHA1, Cancel-Lock
@@ -66,11 +66,9 @@
 (require 'hex-util)			; (decode-hex-string STRING)
 (require 'sha1)				; expects (sha1 STRING)
 
-;;; For consintency with hmac-md5.el, we define this function here.
-(or (fboundp 'sha1-binary)
-    (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)