* 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 (file)
--- 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 (file)
--- 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."