From: yoichi <yoichi>
Date: Thu, 3 Jun 2004 18:48:29 +0000 (+0000)
Subject: * wl-action.el (wl-summary-target-mark-set-action): Stop if
X-Git-Tag: wl-2_11_30~22
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07ab9fcc0ca49ddc89b83f4b22a2a2eb6f3ccb53;p=elisp%2Fwanderlust.git

* wl-action.el (wl-summary-target-mark-set-action): Stop if
marked message does not exist.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 15877bb..5c3f905 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-04  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-action.el (wl-summary-target-mark-set-action): Stop if
+	marked message does not exist.
+
 2004-06-04  Tsutomu OKADA  <tsutomu.okada@furuno.co.jp>
 
 	* wl-vars.el (wl-subject-re-prefix-regexp): Renamed from
diff --git a/wl/wl-action.el b/wl/wl-action.el
index 9c07368..a535b0b 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -135,6 +135,7 @@ Return number if put mark succeed"
 		(setq number (car numlist)
 		      numlist nil))
 	    (setq numlist (cdr numlist)))
+	  (unless number (error "no target"))
 	  (wl-summary-jump-to-msg number)
 	  (setq data (funcall (wl-summary-action-argument-function action)
 			      (wl-summary-action-symbol action) number)))