From: okada <okada>
Date: Sat, 17 Nov 2001 15:46:42 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-config-sub-header-top): New fucntion.
X-Git-Tag: wl-2_8-root~146
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7a94f122bf6b9bb3f7b14e00e484beefbaff260a;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-config-sub-header-top): New fucntion.
(wl-draft-config-sub-func-alist): Added `wl-draft-config-sub-header-top'.
`wl-draft-config-sub-header-bottom'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f8e17af..2de33a6 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-18  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft-config-sub-header-top): New fucntion.
+	(wl-draft-config-sub-func-alist): Added `wl-draft-config-sub-header-top'.
+	`wl-draft-config-sub-header-bottom'.
+
 2001-11-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-get-newsgroups): Fixed probrem when
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 10e3729..dec1fc4 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -75,16 +75,18 @@
 (defvar wl-draft-forward nil)
 
 (defvar wl-draft-config-sub-func-alist
-  '((body        . wl-draft-config-sub-body)
-    (top         . wl-draft-config-sub-top)
-    (bottom      . wl-draft-config-sub-bottom)
-    (header      . wl-draft-config-sub-header)
-    (body-file   . wl-draft-config-sub-body-file)
-    (top-file    . wl-draft-config-sub-top-file)
-    (bottom-file . wl-draft-config-sub-bottom-file)
-    (header-file . wl-draft-config-sub-header-file)
-    (template    . wl-draft-config-sub-template)
-    (x-face      . wl-draft-config-sub-x-face)))
+  '((body          . wl-draft-config-sub-body)
+    (top           . wl-draft-config-sub-top)
+    (bottom        . wl-draft-config-sub-bottom)
+    (header        . wl-draft-config-sub-header)
+    (header-top    . wl-draft-config-sub-header-top)
+    (header-bottom . wl-draft-config-sub-header)
+    (body-file     . wl-draft-config-sub-body-file)
+    (top-file      . wl-draft-config-sub-top-file)
+    (bottom-file   . wl-draft-config-sub-bottom-file)
+    (header-file   . wl-draft-config-sub-header-file)
+    (template      . wl-draft-config-sub-template)
+    (x-face        . wl-draft-config-sub-x-face)))
 
 (make-variable-buffer-local 'wl-draft-buffer-file-name)
 (make-variable-buffer-local 'wl-draft-buffer-cur-summary-buffer)
@@ -1562,6 +1564,10 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
   (wl-draft-body-goto-bottom)
   (if content (insert (eval content))))
 
+(defun wl-draft-config-sub-header-top (content)
+  (goto-char (point-min))
+  (if content (insert (concat (eval content) "\n"))))
+
 (defun wl-draft-config-sub-header (content)
   (wl-draft-config-body-goto-header)
   (if content (insert (concat (eval content) "\n"))))