* wl-folder.el (wl-folder-empty-trash): Set and show up summary

buffer after calling `wl-summary-goto-folder-subr' without the
argument `interactive'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8cf0431..30b8fc3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-12  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * 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  <kaoru@kaisei.org>
 
        * 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 (file)
--- 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