From eaa6c8003334f2dd8f9a0141d56718d20632c833 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 7 Nov 2002 11:35:46 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-create-buffer): Set reply-or-forward also for target mark commands. --- wl/ChangeLog | 2 ++ wl/wl-draft.el | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c7ac556..11b39cb 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -4,6 +4,8 @@ Do not delete other windows. * wl-draft.el (wl-draft-edit-string): Do not delete other windows. (wl-draft-reedit): Switch buffer with `wl-draft-buffer-style'. + (wl-draft-create-buffer): Set reply-or-forward also for target + mark commands. 2002-11-07 Yuuichi Teranishi diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 3421ea6..65106aa 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1600,7 +1600,9 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" (summary-buf (wl-summary-get-buffer parent-folder)) buf-name file-name num change-major-mode-hook (reply-or-forward (or (eq this-command 'wl-summary-reply) - (eq this-command 'wl-summary-forward)))) + (eq this-command 'wl-summary-forward) + (eq this-command 'wl-summary-target-mark-forward) + (eq this-command 'wl-summary-target-mark-reply-with-citation)))) (if (not (elmo-folder-message-file-p draft-folder)) (error "%s folder cannot be used for draft folder" wl-draft-folder)) (setq num (elmo-max-of-list -- 1.7.10.4