From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Feb 2016 05:29:13 +0000 (+1100)
Subject: Remove compat code from canlock.el
X-Git-Tag: emacs-26.0.90~2592
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d919f56c242980cc0ba667c8e60c188462409bc6;p=emacs.git

Remove compat code from canlock.el

* lisp/gnus/canlock.el (defmacro): Remove
---

diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el
index b73d863f1c6..27b00da1e22 100644
--- a/lisp/gnus/canlock.el
+++ b/lisp/gnus/canlock.el
@@ -70,13 +70,6 @@ buffer does not look like a news message."
   :type 'boolean
   :group 'canlock)
 
-(eval-when-compile
-  (defmacro canlock-string-as-unibyte (string)
-    "Return a unibyte string with the same individual bytes as STRING."
-    (if (fboundp 'string-as-unibyte)
-	(list 'string-as-unibyte string)
-      string)))
-
 (defun canlock-sha1 (message)
   "Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes."
   (let (sha1-maximum-internal-length)
@@ -97,7 +90,7 @@ buffer does not look like a news message."
      (canlock-sha1
       (concat opad
 	      (canlock-sha1
-	       (concat ipad (canlock-string-as-unibyte message-id))))))))
+	       (concat ipad (string-as-unibyte message-id))))))))
 
 (defun canlock-narrow-to-header ()
   "Narrow the buffer to the head of the message."