From: teranisi <teranisi>
Date: Wed, 4 Sep 2002 00:21:34 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-preview-message): Bind wl-draft-parent-folder.
X-Git-Tag: elmo-mark-root~16
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7cf0d9c7ee1e9824a402f1b58747c9e386ab5301;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-preview-message): Bind wl-draft-parent-folder.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f107b76..b21bbc8 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-04  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-draft-preview-message): Bind wl-draft-parent-folder.
+
 2002-09-03  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-summary.el (wl-summary-default-from): Write description.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 0a80534..7984588 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -73,6 +73,7 @@ By setting following-method as yank-content."
   (interactive)
   (let* (recipients-message
 	 (config-exec-flag wl-draft-config-exec-flag)
+	 (parent-folder wl-draft-parent-folder)
 	 (mime-display-header-hook 'wl-highlight-headers)
 	 (mime-header-encode-method-alist
 	  (append
@@ -86,7 +87,8 @@ By setting following-method as yank-content."
 	   (list
 	    (function
 	     (lambda ()
-	       (let ((wl-draft-config-exec-flag config-exec-flag))
+	       (let ((wl-draft-config-exec-flag config-exec-flag)
+		     (wl-draft-parent-folder parent-folder))
 		 (run-hooks 'wl-draft-send-hook)
 		 (setq recipients-message
 		       (condition-case err