From 42081fb6572cca2af3c134d041b7c43441717b26 Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Sun, 24 Mar 2002 12:53:36 +0000
Subject: [PATCH] * wl-vars.el (wl-draft-additional-header-alist): New
 variable. * wl-draft.el (wl-draft-create-contents): Add it
 after the default headers.

---
 wl/ChangeLog   |    4 ++++
 wl/wl-draft.el |    2 ++
 wl/wl-vars.el  |    6 ++++++
 3 files changed, 12 insertions(+)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 872b483..97bac7f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-03-24  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
+	* wl-vars.el (wl-draft-additional-header-alist): New variable.
+	* wl-draft.el (wl-draft-create-contents): Add it after the default
+	headers.
+
 	* wl-draft.el (wl-draft-create-contents): For the case of
 	(symbol-or-string . function) insert header only when the function
 	returns string value.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0f2f396..a3388f1 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1487,6 +1487,7 @@ Derived from `message-save-drafts' in T-gnus."
 	      (append header-alist (list (cons 'Subject ""))))))
     (setq header-alist (append header-alist
 			       (wl-draft-default-headers)
+			       wl-draft-additional-header-alist
 			       (if body (list "" body))))
     (wl-draft-create-contents header-alist)
     (if edit-again
@@ -1558,6 +1559,7 @@ Derived from `message-save-drafts' in T-gnus."
   (symbol . nil)       ;;  insert nothing
   (function . (arg1 arg2 ..))  ;; call function with argument
   nil                  ;;  insert nothing
+  )
 "
   (unless (eq major-mode 'wl-draft-mode)
     (error "wl-draft-create-header must be use in wl-draft-mode."))
diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index e119bbd..8fa09c9 100644
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -265,6 +265,12 @@ If nil, `wl-from' is used."
   :group 'wl
   :group 'wl-setting)
 
+(defcustom wl-draft-additional-header-alist nil
+  "*Additional headers in the draft."
+  :type '(repeat (cons (symbol :tag "Field Name")
+		       (choice (string :tag "String")
+			       (function :tag "Function")))))
+
 (defcustom wl-draft-add-in-reply-to t
   "*If non-nil, message-id of the cited message is inserted to the
 in-reply-to field of the current draft."
-- 
1.7.10.4