diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 16:29:13 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-13 16:29:13 +1100 |
| commit | d919f56c242980cc0ba667c8e60c188462409bc6 (patch) | |
| tree | 4f53006e4f33be9b89685fdccc00cf87d984d711 /lisp/gnus/canlock.el | |
| parent | 97d76d9b6c9b189c6a69afc191dd7b6a35332ce1 (diff) | |
| download | emacs-d919f56c242980cc0ba667c8e60c188462409bc6.tar.gz | |
Remove compat code from canlock.el
* lisp/gnus/canlock.el (defmacro): Remove
Diffstat (limited to 'lisp/gnus/canlock.el')
| -rw-r--r-- | lisp/gnus/canlock.el | 9 |
1 files changed, 1 insertions, 8 deletions
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." |