From: teranisi <teranisi>
Date: Tue, 29 Jul 2003 13:49:34 +0000 (+0000)
Subject: * wl-action.el (wl-summary-set-mark): Fixed last change, again.
X-Git-Tag: wl-2_11_5~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2781334daafb1a1b1fa0a8150598fcc53747917f;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-set-mark): Fixed last change, again.
---

diff --git a/wl/wl-action.el b/wl/wl-action.el
index c8aa08d..0670d14 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -66,8 +66,6 @@ Return number if put mark succeed"
 	 visible mark cur-mark)
     (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))