From: okada <okada>
Date: Fri, 11 Jan 2002 16:21:35 +0000 (+0000)
Subject:         * wl-vars.el (wl-unique-id-suffix): Move from `wl-utils.el'
X-Git-Tag: wl-2_9_5~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=84c965e8e5a4c5e69e31980c00e05ed578485557;p=elisp%2Fwanderlust.git

    * wl-vars.el (wl-unique-id-suffix): Move from `wl-utils.el'
        * wl-utils.el (wl-unique-id-suffix): Remove.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8a47e84..1ffd7e9 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-12  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-vars.el (wl-unique-id-suffix): Move from `wl-utils.el'
+	* wl-utils.el (wl-unique-id-suffix): Remove.
+
 2002-01-07  Kenichi OKADA  <okada@opaopa.org>
 
 	* Version number is increased to 2.9.4.
diff --git a/wl/wl-util.el b/wl/wl-util.el
index 98f89bf..7a74af1 100644
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -600,7 +600,6 @@ 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.
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 528794f..dde058d 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1179,6 +1179,12 @@ Set this if (system-name) does not return FQDN."
 		 string)
   :group 'wl-pref)
 
+(defcustom wl-unique-id-suffix ".wl"
+  "*Specific the string on the right neighbor
+of @ in generated Message-ID."
+  :type 'string
+  :group 'wl-pref)
+
 (defcustom wl-break-pages t
   "*Break Pages at ^L."
   :type 'boolean