From c8a1ed57d2c152e61463a7424a0540c38b43c1fa Mon Sep 17 00:00:00 2001
From: yoichi <yoichi>
Date: Mon, 19 Nov 2001 08:41:28 +0000
Subject: [PATCH] * wl-draft.el (wl-draft): Added 14th argument
 `parent-folder'.

* wl-summary.el (wl-summary-write): Call wl-draft with 14th argument.
(wl-summary-write-current-folder): Ditto.
---
 wl/ChangeLog     |    7 +++++++
 wl/wl-draft.el   |    5 ++++-
 wl/wl-summary.el |    7 +++++--
 3 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 929431a..071a758 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2001-11-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft): Added 14th argument `parent-folder'.
+
+	* wl-summary.el (wl-summary-write): Call wl-draft with 14th argument.
+	(wl-summary-write-current-folder): Ditto.
+
 2001-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-folder.el (wl-folder-get-newsgroups): Use
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index dec1fc4..ec9cb08 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -73,6 +73,7 @@
 (defvar wl-draft-reedit nil)
 (defvar wl-draft-reply-buffer nil)
 (defvar wl-draft-forward nil)
+(defvar wl-draft-parent-folder nil)
 
 (defvar wl-draft-config-sub-func-alist
   '((body          . wl-draft-config-sub-body)
@@ -95,6 +96,7 @@
 (make-variable-buffer-local 'wl-sent-message-via)
 (make-variable-buffer-local 'wl-draft-fcc-list)
 (make-variable-buffer-local 'wl-draft-reply-buffer)
+(make-variable-buffer-local 'wl-draft-parent-folder)
 
 (defmacro wl-smtp-extension-bind (&rest body)
   (` (let* ((smtp-sasl-mechanisms
@@ -1320,7 +1322,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 (defun wl-draft (&optional to subject in-reply-to cc references newsgroups
 			   mail-followup-to
 			   content-type content-transfer-encoding
-			   body edit-again summary-buf from)
+			   body edit-again summary-buf from parent-folder)
   "Write and send mail/news message with Wanderlust."
   (interactive)
   (unless (featurep 'wl)
@@ -1366,6 +1368,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-draft-truncate-lines)
     (setq wl-sent-message-via nil)
+    (setq wl-draft-parent-folder parent-folder)
     (if (stringp (or from wl-from))
 	(insert "From: " (or from wl-from) "\n"))
     (and (or (interactive-p)
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 0ec7284..9351e17 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -4896,7 +4896,8 @@ Reply to author if invoked with ARG."
   "Write a new draft from Summary."
   (interactive)
   (wl-draft nil nil nil nil nil
-	    nil nil nil nil nil nil (current-buffer))
+	    nil nil nil nil nil nil (current-buffer)
+	    nil (wl-summary-buffer-folder-name))
   (run-hooks 'wl-mail-setup-hook)
   (mail-position-on-field "To"))
 
@@ -4927,7 +4928,9 @@ Use function list is `wl-summary-write-current-folder-functions'."
 	(error "Can't guess by folder %s" folder))
       (wl-draft (nth 0 guess-list) nil nil ; To:
 		(nth 1 guess-list) nil	; Cc:
-		(nth 2 guess-list))	; Newsgroups:
+		(nth 2 guess-list)	; Newsgroups:
+		nil nil nil nil nil nil nil
+		folder)
       (run-hooks 'wl-mail-setup-hook)
       (mail-position-on-field "Subject"))))
 
-- 
1.7.10.4