From 595cdb4461cd9880f0890100e555a1a1bb48dd61 Mon Sep 17 00:00:00 2001 From: yoichi Date: Thu, 3 Jun 2004 18:57:13 +0000 Subject: [PATCH] fix the last change --- wl/ChangeLog | 2 +- wl/wl-action.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 * 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 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))) -- 1.7.10.4