From 6aacc879dc9df8f9aa9dc0d78116fb93f80c69e2 Mon Sep 17 00:00:00 2001 From: okada Date: Thu, 22 Nov 2001 18:16:00 +0000 Subject: [PATCH] * 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. --- wl/ChangeLog | 7 +++++++ wl/wl-draft.el | 14 ++++++++++++-- 2 files changed, 19 insertions(+), 2 deletions(-) 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 + + * 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 * 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) -- 1.7.10.4