From: murata Date: Sat, 7 Apr 2001 15:45:56 +0000 (+0000) Subject: Fixed wrong argument in wl-summary-archive X-Git-Tag: wl-2_6-root^3~54 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96ac7d6d09e8091f4335d502dde0fa974ba316a8;p=elisp%2Fwanderlust.git Fixed wrong argument in wl-summary-archive --- diff --git a/wl/wl-expire.el b/wl/wl-expire.el index bfc4631..95e7f3e 100644 --- a/wl/wl-expire.el +++ b/wl/wl-expire.el @@ -697,13 +697,13 @@ Refile to archive folder followed message date." wl-folder-entity)) (message "Archiving %s is done" entity-name)))) -(defun wl-archive-number1 (folder archive-list msgdb dst-folder-arg) +(defun wl-archive-number1 (folder archive-list msgdb &optional dst-folder-arg) (wl-expire-archive-number1 folder archive-list msgdb t dst-folder-arg t)) -(defun wl-archive-number2 (folder archive-list msgdb dst-folder-arg) +(defun wl-archive-number2 (folder archive-list msgdb &optional dst-folder-arg) (wl-expire-archive-number2 folder archive-list msgdb t dst-folder-arg t)) -(defun wl-archive-date (folder archive-list msgdb dst-folder-arg) +(defun wl-archive-date (folder archive-list msgdb &optional dst-folder-arg) (wl-expire-archive-date folder archive-list msgdb t dst-folder-arg t)) (defun wl-archive-folder (folder archive-list msgdb dst-folder) @@ -757,7 +757,7 @@ Refile to archive folder followed message date." (apply func (append (list folder msgs msgdb) args))) (run-hooks 'wl-summary-archive-hook) (if archive-list - (message "Archiving %s is done" folder) + (message "Archiving %s is done" (elmo-folder-name-internal folder)) (and (interactive-p) (message "No archive")))))))