* wl-utils.el (wl-message-id-function): New variable.

* wl-draft.el (wl-draft-insert-required-fields):
Use `wl-message-id-function'.
* im-wl.el (wl-draft-send-with-imput-async): Use `wl-message-id-function'.

diff --git a/utils/ChangeLog b/utils/ChangeLog
index 4c307dd..489d3cc 100644 (file)
--- a/utils/ChangeLog
+++ b/utils/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-17  Kenichi OKADA  <okada@opaopa.org>
+
+       * im-wl.el (wl-draft-send-with-imput-async): Use `wl-message-id-function'
+
 2002-01-07  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
        * bbdb-wl.el (bbdb-wl-ignore-folder-regexp): New variable.

diff --git a/utils/im-wl.el b/utils/im-wl.el
index 496a818..b60d8ae 100644 (file)
--- a/utils/im-wl.el
+++ b/utils/im-wl.el
@@ -97,7 +97,7 @@ This is most commonly `imput(impost)' or `inews-nifty4u'.")
          (when (and wl-insert-message-id
                     (not (re-search-forward "^Message-ID[ \t]*:" nil t)))
            (insert (concat "Message-ID: "
-                           (wl-draft-make-message-id-string) "\n")))
+                           (funcall wl-message-id-function) "\n")))
          ;; Insert date field.
          (goto-char (point-min))
          (or (re-search-forward "^Date[ \t]*:" nil t)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index ddc58af..5f9c0ec 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,11 @@
 2002-01-17  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-utils.el (wl-message-id-function): New variable.
+       * wl-draft.el (wl-draft-insert-required-fields):
+       Use `wl-message-id-function'.
+
+2002-01-17  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-vars.el (wl-message-id-use-wl-from): New variable.
        * wl-utils.el (wl-draft-make-message-id-string):
        Use `wl-from' for domain part of Message-ID

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a6dfc9b..235c2c3 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1047,7 +1047,7 @@ If FORCE-MSGID, ignore 'wl-insert-message-id'."
                 wl-insert-message-id)
             (not (re-search-forward "^Message-ID[ \t]*:" nil t)))
     (insert (concat "Message-ID: "
-                   (wl-draft-make-message-id-string)
+                   (funcall wl-message-id-function)
                    "\n")))
   ;; Insert date field.
   (goto-char (point-min))

diff --git a/wl/wl-util.el b/wl/wl-util.el
index 54d53a3..6458183 100644 (file)
--- a/wl/wl-util.el
+++ b/wl/wl-util.el
@@ -640,6 +640,7 @@ that `read' can handle, whenever this is possible."
      ;; might otherwise generate the same ID via another algorithm.
      wl-unique-id-suffix)))
 
+(defvar wl-message-id-function 'wl-draft-make-message-id-string)
 (defun wl-draft-make-message-id-string ()
   "Return Message-ID field value."
   (concat "<" (wl-unique-id)