From 7cf0d9c7ee1e9824a402f1b58747c9e386ab5301 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 4 Sep 2002 00:21:34 +0000 Subject: [PATCH] * wl-mime.el (wl-draft-preview-message): Bind wl-draft-parent-folder. --- wl/ChangeLog | 4 ++++ wl/wl-mime.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * wl-mime.el (wl-draft-preview-message): Bind wl-draft-parent-folder. + 2002-09-03 Yoichi NAKAYAMA * 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 -- 1.7.10.4