From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 17 Oct 2022 06:01:51 +0000 (+0200)
Subject: Make `message-canlock-generate' faster
X-Git-Tag: emacs-29.0.90~1616^2~581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44541c78541a96f85f3316a527374c4e4d3c75fc;p=emacs.git

Make `message-canlock-generate' faster

* lisp/gnus/message.el (message-canlock-generate): Improve performance
by several orders of magnitude.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5e4e9854a6b..a714e318767 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)