From f46fbc1070c438f95e2c44f2b4436128e083b75f Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 6 Jan 2002 14:12:33 +0000 Subject: [PATCH] * wl-utils.el (wl-unique-id-suffix): New variable. (wl-unique-id): Use `wl-unique-id-suffix' --- wl/ChangeLog | 5 +++++ wl/wl-util.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 62acbdc..2e2ddb1 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2002-01-06 Kenichi OKADA + + * wl-utils.el (wl-unique-id-suffix): New variable. + (wl-unique-id): Use `wl-unique-id-suffix' + 2002-01-06 Hiroya Murata * wl-summary.el (wl-summary-pick): Use `elmo-folder-search' diff --git a/wl/wl-util.el b/wl/wl-util.el index aae027b..98f89bf 100644 --- a/wl/wl-util.el +++ b/wl/wl-util.el @@ -600,6 +600,7 @@ that `read' can handle, whenever this is possible." (% num 36)))))) (defvar wl-unique-id-char nil) +(defvar wl-unique-id-suffix ".wl") (defun wl-unique-id () ;; Don't use microseconds from (current-time), they may be unsupported. @@ -638,7 +639,7 @@ that `read' can handle, whenever this is possible." ;; Append the name of the message interface, because while the ;; generated ID is unique to this newsreader, other newsreaders ;; might otherwise generate the same ID via another algorithm. - ".wl"))) + wl-unique-id-suffix))) (defun wl-draft-make-message-id-string () "Return Message-ID field value." -- 1.7.10.4