* check-modules.el (test-shimbun): Check `shimbun-server'.

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

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 7697064..0670d14 100644 (file)
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -64,10 +64,8 @@ Return number if put mark succeed"
         (current (wl-summary-message-number))
         (action (assoc set-mark wl-summary-mark-action-list))
         visible mark cur-mark)
-    (when (elmo-folder-length wl-summary-buffer-elmo-folder)
+    (when (zerop (elmo-folder-length wl-summary-buffer-elmo-folder))
       (error "Set mark failed"))
-    (unless current
-      (error "No message"))
     (prog1
        (save-excursion
          ;; Put mark
@@ -78,6 +76,8 @@ Return number if put mark succeed"
                         (and (null number) current))
                number (or number current)
                cur-mark (nth 1 (wl-summary-registered-temp-mark number)))
+         (unless number
+           (error "No message"))
          (if (wl-summary-reserve-temp-mark-p cur-mark)
              (when interactive
                (error "Already marked as `%s'" cur-mark))