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