From c2600709289b5f291de02f7fa5372429518ac8cb Mon Sep 17 00:00:00 2001 From: yoichi Date: Sun, 12 Jan 2003 13:12:21 +0000 Subject: [PATCH] * wl-folder.el (wl-folder-empty-trash): Set and show up summary buffer after calling `wl-summary-goto-folder-subr' without the argument `interactive'. --- wl/ChangeLog | 6 ++++++ wl/wl-folder.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 8cf0431..30b8fc3 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2003-01-12 Yoichi NAKAYAMA + + * wl-folder.el (wl-folder-empty-trash): Set and show up summary + buffer after calling `wl-summary-goto-folder-subr' without the + argument `interactive'. + 2003-01-12 TAKAHASHI Kaoru * wl-draft.el (wl-draft-remove-text-plain-tag): Use diff --git a/wl/wl-folder.el b/wl/wl-folder.el index 5c5dc85..7a425cb 100644 --- a/wl/wl-folder.el +++ b/wl/wl-folder.el @@ -501,11 +501,11 @@ Default HASHTB is `wl-folder-elmo-folder-hashtb'." (let ((cur-buf (current-buffer)) (wl-auto-select-first nil) trash-buf emptied) + (setq trash-buf (wl-summary-get-buffer-create wl-trash-folder)) + (wl-summary-goto-folder-subr wl-trash-folder 'force-update) (if wl-stay-folder-window - (wl-folder-select-buffer - (wl-summary-get-buffer-create wl-trash-folder))) - (wl-summary-goto-folder-subr wl-trash-folder 'force-update nil nil t) - (setq trash-buf (current-buffer)) + (wl-folder-select-buffer trash-buf) + (switch-to-buffer trash-buf)) (unwind-protect (setq emptied (wl-summary-delete-all-msgs)) (when emptied -- 1.7.10.4