From: yamaoka <yamaoka>
Date: Tue, 13 Jan 2004 13:41:49 +0000 (+0000)
Subject: Synch to No Gnus 200401131339.
X-Git-Tag: t-gnus-6_17_4-quimby-~1136
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=71e09c7db85e7c65bf3772c1ce847bc4d816f0b9;p=elisp%2Fgnus.git-

Synch to No Gnus 200401131339.
---

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  <yamaoka@jpl.org>
+
+	* message.el (message-canlock-generate): Require sha1-el.
+
 2004-01-13  Jesper Harder  <harder@ifa.au.dk>
 
 	* 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))