* wl-expire.el (wl-expire-refile-with-copy-reserve-msg): Follow the change

in the order of the arguments for `wl-expire-message-p'.
(Reported by Shinichiro HIDA <shinichiro@stained-g.net>)

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 99cb690..6b33e47 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -2,6 +2,9 @@
 
        * wl-expire.el (wl-summary-expire): Fixed 2nd argument for `wl-append'.
        (Reported by Shinichiro HIDA <shinichiro@stained-g.net>)
+       (wl-expire-refile-with-copy-reserve-msg): Follow the change in the
+       order of the arguments for `wl-expire-message-p'.
+       (Reported by Shinichiro HIDA <shinichiro@stained-g.net>)
 
        * wl-summary.el (wl-summary-target-mark-reply-with-citation): 
        Check return value of wl-summary-reply.

diff --git a/wl/wl-expire.el b/wl/wl-expire.el
index f598b17..f122586 100644 (file)
--- a/wl/wl-expire.el
+++ b/wl/wl-expire.el
@@ -196,7 +196,7 @@ If REFILE-LIST includes reserve mark message, so copy."
        (error "%s: create folder failed" (elmo-folder-name-internal
                                           dst-folder)))
        (while (setq msg (wl-pop msglist))
-         (unless (wl-expire-message-p msg folder)
+         (unless (wl-expire-message-p folder msg)
            (setq msg-id (elmo-message-field folder msg 'message-id))
            (if (assoc msg-id wl-expired-alist)
                ;; reserve mark message already refiled or expired