From: yoichi <yoichi>
Date: Thu, 7 Nov 2002 11:35:46 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-create-buffer): Set reply-or-forward also for
X-Git-Tag: wl-2_11_1~64
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eaa6c8003334f2dd8f9a0141d56718d20632c833;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-create-buffer): Set reply-or-forward also for
target mark commands.
---

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  <teranisi@gohome.org>
 
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