From 50d2b50a72cf22318bdc1bde227914bf9090e16b Mon Sep 17 00:00:00 2001 From: yoichi Date: Tue, 20 Nov 2001 12:18:55 +0000 Subject: [PATCH] Call wl-draft with parent folder in wl-draft-reply --- wl/ChangeLog | 4 ++++ wl/wl-draft.el | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * wl-draft.el (wl-draft-reply): Call wl-draft with parent folder. + 2001-11-19 Kenichi OKADA * 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)) -- 1.7.10.4