From: okada <okada>
Date: Sun, 6 Jan 2002 14:12:33 +0000 (+0000)
Subject: 	* wl-utils.el (wl-unique-id-suffix): New variable.
X-Git-Tag: wl-2_9_5~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f46fbc1070c438f95e2c44f2b4436128e083b75f;p=elisp%2Fwanderlust.git

	* wl-utils.el (wl-unique-id-suffix): New variable.
	(wl-unique-id): Use `wl-unique-id-suffix'
---

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  <okada@opaopa.org>
+
+	* wl-utils.el (wl-unique-id-suffix): New variable.
+	(wl-unique-id): Use `wl-unique-id-suffix'
+
 2002-01-06  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* 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."