From 71e09c7db85e7c65bf3772c1ce847bc4d816f0b9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 13 Jan 2004 13:41:49 +0000 Subject: [PATCH] Synch to No Gnus 200401131339. --- lisp/ChangeLog | 4 ++++ lisp/message.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3578d8b..79fda39 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2004-01-13 Katsumi Yamaoka + + * message.el (message-canlock-generate): Require sha1-el. + 2004-01-13 Jesper Harder * message.el (message-expand-name): Silence the byte compiler. diff --git a/lisp/message.el b/lisp/message.el index 7406385..605865a 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -4423,6 +4423,7 @@ documentation for the function `mail-source-touch-pop'." (defun message-canlock-generate () "Return a string that is non-trivial to guess. Do not use this for anything important, it is cryptographically weak." + (require 'sha1-el) (let (sha1-maximum-internal-length) (sha1 (concat (message-unique-id) (format "%x%x%x" (random) (random t) (random)) -- 1.7.10.4