diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-05-24 08:18:52 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2017-05-24 08:18:52 +0000 |
| commit | bba9917299e3628e40462a762f2a14bb8df193f0 (patch) | |
| tree | 76bd4ce227d2f8dc91be7f8bef7ba0db772dc4e3 /lisp/gnus | |
| parent | 61ef5c612d05d62b2190870ea7289251c3e092c6 (diff) | |
| download | emacs-bba9917299e3628e40462a762f2a14bb8df193f0.tar.gz | |
Remove string-as-unibyte
* lisp/gnus/canlock.el (canlock-sha1): Remove useless variable.
(canlock-make-cancel-key): No need to use string-as-unibyte.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/canlock.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/gnus/canlock.el b/lisp/gnus/canlock.el index 9e13ced4670..5157256594d 100644 --- a/lisp/gnus/canlock.el +++ b/lisp/gnus/canlock.el @@ -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." |