* wl-summary.el (wl-summary-cleanup-temp-marks): Cleanup correctly

[elisp/wanderlust.git] / wl / wl-summary.el

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 9624b09..15cea7b 100644 (file)
--- 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.