From 64ed15da51e647ba2f49f3b9a59e0f6ea948c164 Mon Sep 17 00:00:00 2001 From: shuhei Date: Sun, 25 Feb 2001 14:26:59 +0000 Subject: [PATCH] Update Copyright header. (sha1-binary): Define it unconditionally. --- mail/hmac-sha1.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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 ;; 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) -- 1.7.10.4