From: yoichi <yoichi>
Date: Tue, 5 Mar 2002 09:11:51 +0000 (+0000)
Subject: Kill sticky summary buffer when wl-summary-goto-folder is called
X-Git-Tag: wl-2_9_8~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1d7ac1983cc07568560c6a302cc5f6fc500e5ca5;p=elisp%2Fwanderlust.git

Kill sticky summary buffer when wl-summary-goto-folder is called
with prefix argument.
---

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 5f93054..79fa995 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2526,7 +2526,9 @@ If ARG, without confirm."
       (if (or force-exit (not (wl-summary-sticky-p)))
 	  (wl-summary-cleanup-temp-marks (wl-summary-sticky-p)))
       (wl-summary-save-view)
-      (elmo-folder-commit wl-summary-buffer-elmo-folder))
+      (elmo-folder-commit wl-summary-buffer-elmo-folder)
+      (if (and (wl-summary-sticky-p) force-exit)
+	  (kill-buffer (current-buffer))))
     (setq buf (wl-summary-get-buffer-create (elmo-folder-name-internal folder)
 					    sticky))
     (setq reuse-buf