From: yoichi <yoichi>
Date: Thu, 3 Jun 2004 18:57:13 +0000 (+0000)
Subject: fix the last change
X-Git-Tag: wl-2_11_30~21
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=595cdb4461cd9880f0890100e555a1a1bb48dd61;p=elisp%2Fwanderlust.git

fix the last change
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 5c3f905..adace6f 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,7 +1,7 @@
 2004-06-04  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* wl-action.el (wl-summary-target-mark-set-action): Stop if
-	marked message does not exist.
+	target message does not exist.
 
 2004-06-04  Tsutomu OKADA  <tsutomu.okada@furuno.co.jp>
 
diff --git a/wl/wl-action.el b/wl/wl-action.el
index a535b0b..3faaa00 100644
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -124,6 +124,7 @@ Return number if put mark succeed"
 
 (defun wl-summary-target-mark-set-action (action)
   (unless (eq (wl-summary-action-symbol action) 'target-mark)
+    (unless wl-summary-buffer-target-mark-list (error "no target"))
     (save-excursion
       (goto-char (point-min))
       (let ((numlist wl-summary-buffer-number-list)
@@ -135,7 +136,6 @@ 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)))