From: kaoru <kaoru>
Date: Sun, 15 Jun 2003 23:53:53 +0000 (+0000)
Subject: Fix indent.
X-Git-Tag: wl-2_10_1pre~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d11fb601c163df0d8dca57eabac1dd22f04decd;p=elisp%2Fwanderlust.git

Fix indent.
---

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