[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 44541c7854: Make `message-canlock-generate' faster
From: |
Stefan Kangas |
Subject: |
master 44541c7854: Make `message-canlock-generate' faster |
Date: |
Mon, 17 Oct 2022 02:03:56 -0400 (EDT) |
branch: master
commit 44541c78541a96f85f3316a527374c4e4d3c75fc
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>
Make `message-canlock-generate' faster
* lisp/gnus/message.el (message-canlock-generate): Improve performance
by several orders of magnitude.
---
lisp/gnus/message.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5e4e9854a6..a714e31876 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -5192,10 +5192,7 @@ command evaluates `message-send-mail-hook' just before
sending a message."
(defun message-canlock-generate ()
"Return a string that is non-trivial to guess.
Do not use this for anything important, it is cryptographically weak."
- (sha1 (concat (message-unique-id)
- (format "%x%x%x" (random) (random) (random))
- (prin1-to-string (recent-keys))
- (prin1-to-string (garbage-collect)))))
+ (secure-hash 'sha1 'iv-auto 128))
(defvar canlock-password)
(defvar canlock-password-for-verify)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 44541c7854: Make `message-canlock-generate' faster,
Stefan Kangas <=