From: okada <okada>
Date: Thu, 22 Nov 2001 18:16:00 +0000 (+0000)
Subject: 	* wl-draft.el (wl-draft-config-sub-func-alist): Added
X-Git-Tag: wl-2_8-root~127
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6aacc879dc9df8f9aa9dc0d78116fb93f80c69e2;p=elisp%2Fwanderlust.git

	* wl-draft.el (wl-draft-config-sub-func-alist): Added
	`part-top' and `part-bottom'.
	(wl-draft-config-sub-part-top): New function.
	(wl-draft-config-sub-part-bottom): New function.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 67424bb..6ab2d41 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-23  Kenichi OKADA  <okada@opaopa.org>
+
+	* wl-draft.el (wl-draft-config-sub-func-alist): Added
+	`part-top' and `part-bottom'.
+	(wl-draft-config-sub-part-top): New function.
+	(wl-draft-config-sub-part-bottom): New function.
+
 2001-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-draft.el (wl-draft-reply): Call wl-draft with parent folder.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 22132f0..0306f5a 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -82,6 +82,8 @@
     (header        . wl-draft-config-sub-header)
     (header-top    . wl-draft-config-sub-header-top)
     (header-bottom . wl-draft-config-sub-header)
+    (part-top      . wl-draft-config-sub-part-top)
+    (part-bottom   . wl-draft-config-sub-part-bottom)
     (body-file     . wl-draft-config-sub-body-file)
     (top-file      . wl-draft-config-sub-top-file)
     (bottom-file   . wl-draft-config-sub-bottom-file)
@@ -1569,12 +1571,20 @@ 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 (content)
+  (wl-draft-config-body-goto-header)
+  (if content (insert (concat (eval content) "\n"))))
+
 (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)
+(defun wl-draft-config-sub-part-top (content)
+  (goto-char (mime-edit-content-beginning))
+  (if content (insert (concat (eval content) "\n"))))
+
+(defun wl-draft-config-sub-part-bottom (content)
+  (goto-char (mime-edit-content-end))
   (if content (insert (concat (eval content) "\n"))))
 
 (defsubst wl-draft-config-sub-file (content)