From: hmurata <hmurata>
Date: Thu, 17 Jul 2003 05:08:24 +0000 (+0000)
Subject: * wl-action.el (wl-summary-define-mark-action): Call
X-Git-Tag: elmo-mark-restart~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cddeec398a75c5b1172a44db0c069c5eb7a6a70a;p=elisp%2Fwanderlust.git

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