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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index f107b76..b21bbc8 100644 (file)
--- 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 (file)
--- 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