* 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 (file)
--- 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 (file)
--- 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)))