From 460cc22fbd7c34e5882062ddd03f92d50fb53d62 Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 17 Jan 2002 11:18:25 +0000 Subject: [PATCH] * 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'. --- utils/ChangeLog | 4 ++++ utils/im-wl.el | 2 +- wl/ChangeLog | 6 ++++++ wl/wl-draft.el | 2 +- wl/wl-util.el | 1 + 5 files changed, 13 insertions(+), 2 deletions(-) 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 + + * im-wl.el (wl-draft-send-with-imput-async): Use `wl-message-id-function' + 2002-01-07 Hiroya Murata * 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 + * 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 + * 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) -- 1.7.10.4