From: yoichi <yoichi>
Date: Tue, 20 Nov 2001 12:18:55 +0000 (+0000)
Subject: Call wl-draft with parent folder in wl-draft-reply
X-Git-Tag: wl-2_8-root~136
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=50d2b50a72cf22318bdc1bde227914bf9090e16b;p=elisp%2Fwanderlust.git

Call wl-draft with parent folder in wl-draft-reply
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 7ef8513..67424bb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-reply): Call wl-draft with parent folder.
+
 2001-11-19  Kenichi OKADA  <okada@opaopa.org>
 
 	* wl-folder.el (wl-folder-get-newsgroups): Fix.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index ec9cb08..22132f0 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -279,7 +279,9 @@ Reply to author if WITH-ARG is non-nil."
 ;;;(save-excursion
   (let (r-list
 	to mail-followup-to cc subject in-reply-to references newsgroups
-	from to-alist cc-alist decoder)
+	from to-alist cc-alist decoder parent-folder)
+    (set-buffer summary-buf)
+    (setq parent-folder (wl-summary-buffer-folder-name))
     (set-buffer buf)
     (setq r-list (symbol-value (wl-draft-reply-list-symbol with-arg)))
     (catch 'done
@@ -405,7 +407,7 @@ Reply to author if WITH-ARG is non-nil."
 			 (mapconcat 'identity references "\n\t")))
     (wl-draft
      to subject in-reply-to cc references newsgroups mail-followup-to
-     nil nil nil nil summary-buf)
+     nil nil nil nil summary-buf nil parent-folder)
     (setq wl-draft-reply-buffer buf))
   (run-hooks 'wl-reply-hook))