From: teranisi <teranisi>
Date: Thu, 9 May 2002 15:12:55 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-contents): Treat 'Body field as draft content.
X-Git-Tag: elmo-mark-root~143
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=498a10c229174e54f5207342032dd7b9e33756cd;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-create-contents): Treat 'Body field as draft content.
(wl-draft): Follow the change above.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b4a862b..4cedfb7 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2002-05-09  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* wl-draft.el (wl-draft-create-contents): Treat 'Body field as draft
+	content.
+	(wl-draft): Follow the change above.
+
 	* wl-vars.el (wl-summary-line-format-spec-alist): Added @.
 
 	* wl.el (wl-check-variables-2): Check whether wl-summary-line-format
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 1455972..a132de9 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1518,7 +1518,7 @@ Derived from `message-save-drafts' in T-gnus."
     (setq header-alist (append header-alist
 			       (wl-draft-default-headers)
 			       wl-draft-additional-header-alist
-			       (if body (list "" body))))
+			       (if body (list "" (cons 'Body body)))))
     (wl-draft-create-contents header-alist)
     (if edit-again
 	(wl-draft-decode-body
@@ -1607,6 +1607,8 @@ Derived from `message-save-drafts' in T-gnus."
 	(cond
 	 ((symbolp field)
 	  (cond
+	   ((eq field 'Body) ; body
+	    (insert value))
 	   ((stringp value) (insert (symbol-name field) ": " value "\n"))
 	   ((functionp value)
 	    (let ((value-return (funcall value)))