* 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 (file)
--- 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 (file)
--- 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)))