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 (file)
--- 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