* 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'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b108a83..6c26c5a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2003-07-17  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * 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  <teranisi@gohome.org>
 
        * 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 (file)
--- 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))