From 4d11fb601c163df0d8dca57eabac1dd22f04decd Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 15 Jun 2003 23:53:53 +0000 Subject: [PATCH] Fix indent. --- wl/wl-expire.el | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/wl/wl-expire.el b/wl/wl-expire.el index 829f8d3..9e18733 100644 --- a/wl/wl-expire.el +++ b/wl/wl-expire.el @@ -103,20 +103,20 @@ (wl-expire-delete-reserve-marked-msgs-from-list delete-list (elmo-msgdb-get-mark-alist msgdb)))) (when delete-list - (let ((mess - (format "Expiring (delete) %s msgs..." - (length delete-list)))) - (message "%s" mess) - (if (elmo-folder-delete-messages folder - delete-list) - (progn - (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder) - delete-list) - (wl-expire-append-log - (elmo-folder-name-internal folder) - delete-list nil 'delete) - (message "%sdone" mess)) - (error "%sfailed!" mess)))) + (let ((mess + (format "Expiring (delete) %s msgs..." + (length delete-list)))) + (message "%s" mess) + (if (elmo-folder-delete-messages folder + delete-list) + (progn + (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder) + delete-list) + (wl-expire-append-log + (elmo-folder-name-internal folder) + delete-list nil 'delete) + (message "%sdone" mess)) + (error "%sfailed!" mess)))) (cons delete-list (length delete-list))) (defun wl-expire-refile (folder refile-list msgdb dst-folder -- 1.7.10.4