From 498a10c229174e54f5207342032dd7b9e33756cd Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 9 May 2002 15:12:55 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-create-contents): Treat 'Body field as draft content. (wl-draft): Follow the change above. --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + * 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))) -- 1.7.10.4