From cddeec398a75c5b1172a44db0c069c5eb7a6a70a Mon Sep 17 00:00:00 2001 From: hmurata Date: Thu, 17 Jul 2003 05:08:24 +0000 Subject: [PATCH] * wl-action.el (wl-summary-define-mark-action): Call `wl-summary-set-mark' with argument `data'. (wl-summary-auto-refile): Fixed order of arguments when call `wl-summary-refile'. --- wl/ChangeLog | 7 +++++++ wl/wl-action.el | 4 ++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index b108a83..6c26c5a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,10 @@ +2003-07-17 Hiroya Murata + + * wl-action.el (wl-summary-define-mark-action): Call + `wl-summary-set-mark' with argument `data'. + (wl-summary-auto-refile): Fixed order of arguments when call + `wl-summary-refile'. + 2003-07-16 Yuuichi Teranishi * wl-vars.el (wl-summary-mark-action-list): Define resend action. diff --git a/wl/wl-action.el b/wl/wl-action.el index aa6ac45..232d4da 100644 --- a/wl/wl-action.el +++ b/wl/wl-action.el @@ -347,7 +347,7 @@ Return number if put mark succeed" ,(wl-summary-action-docstring action) (interactive) (wl-summary-set-mark ,(wl-summary-action-mark action) - number (interactive-p)))) + number (interactive-p) data))) (fset (intern (format "wl-summary-%s-region" (wl-summary-action-symbol action))) `(lambda (beg end) @@ -828,7 +828,7 @@ Return number if put mark succeed" (error))) (setq checked-dsts (cons (cons dst ret) checked-dsts)) ret))) - (if (funcall (symbol-function 'wl-summary-refile) dst number) + (if (funcall (symbol-function 'wl-summary-refile) number dst) (incf count)) (message "Marking...%d message(s)." count))) (forward-line)) -- 1.7.10.4