From 96ac7d6d09e8091f4335d502dde0fa974ba316a8 Mon Sep 17 00:00:00 2001 From: murata Date: Sat, 7 Apr 2001 15:45:56 +0000 Subject: [PATCH] Fixed wrong argument in wl-summary-archive --- wl/wl-expire.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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"))))))) -- 1.7.10.4