From: okada <okada>
Date: Thu, 17 Jan 2002 11:18:25 +0000 (+0000)
Subject: * wl-utils.el (wl-message-id-function): New variable.
X-Git-Tag: wl-2_9_5~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=460cc22fbd7c34e5882062ddd03f92d50fb53d62;p=elisp%2Fwanderlust.git

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