* wl-vars.el (wl-draft-additional-header-alist): New variable.

* wl-draft.el (wl-draft-create-contents): Add it after the default
headers.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 872b483..97bac7f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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."