From: yoichi <yoichi>
Date: Sun, 12 Jan 2003 13:12:21 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-empty-trash): Set and show up summary
X-Git-Tag: merged-trunk-to-elmo-mark-14~32
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2600709289b5f291de02f7fa5372429518ac8cb;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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