procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove string-as-unibyte

Browse source 
* lisp/gnus/canlock.el (canlock-sha1): Remove useless variable.
(canlock-make-cancel-key): No need to use string-as-unibyte.
This commit is contained in:
Katsumi Yamaoka 2017-05-24 08:18:52 +00:00
parent 61ef5c612d
commit bba9917299
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/canlock.el
View file

@ -72,8 +72,7 @@ buffer does not look like a news message."
(defun canlock-sha1 (message)
"Make a SHA-1 digest of MESSAGE as a unibyte string of length 20 bytes."
(let (sha1-maximum-internal-length)
(sha1 message nil nil 'binary)))
(sha1 message nil nil 'binary))
(defun canlock-make-cancel-key (message-id password)
"Make a Cancel-Key header."
@ -87,10 +86,7 @@ buffer does not look like a news message."
(char-to-string (logxor 92 byte)))
password "")))
(base64-encode-string
(canlock-sha1
(concat opad
(canlock-sha1
(concat ipad (string-as-unibyte message-id))))))))
(canlock-sha1 (concat opad (canlock-sha1 (concat ipad message-id)))))))
(defun canlock-narrow-to-header ()
"Narrow the buffer to the head of the message."