From: yoichi <yoichi>
Date: Thu, 21 Sep 2006 22:52:43 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-cleanup-temp-marks): Cleanup correctly
X-Git-Tag: wl-2_15_5~14
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a6c688b51379a8bcf6c7739f98ee448445054473;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-cleanup-temp-marks): Cleanup correctly
even if there are target marks only.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 884e540..215e4c2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-22  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-summary.el (wl-summary-cleanup-temp-marks): Cleanup correctly
+	even if there are target marks only.
+
 2006-09-21  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* Version number is increased to 2.15.4.
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9624b09..15cea7b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -1260,9 +1260,9 @@ This function is defined by `wl-summary-define-sort-command'." sort-by)
   (when wl-summary-buffer-temp-mark-list
     (wl-summary-exec-with-confirmation
      (format "Execute marks in %s? (answer \"n\" to discard them) "
-	     (wl-summary-buffer-folder-name)))
-    (wl-summary-delete-all-temp-marks 'no-msg)
-    (setq wl-summary-scored nil)))
+	     (wl-summary-buffer-folder-name))))
+  (wl-summary-delete-all-temp-marks 'no-msg)
+  (setq wl-summary-scored nil))
 
 ;; a subroutine for wl-summary-exit/wl-save-status
 ;; Note that folder is not commited here.