From: teranisi Date: Mon, 28 Jul 2003 13:29:42 +0000 (+0000) Subject: * wl-expire.el (wl-expire-refile-with-copy-reserve-msg): Follow the change X-Git-Tag: wl-2_11_5~22 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7a06643e464fd50f41bad5b5993b718b2a8a806c;p=elisp%2Fwanderlust.git * 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 ) --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 99cb690..6b33e47 100644 --- 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 ) + (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 ) * 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 --- 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