From a3a770d2f0a4cb11d62e61737ef10b334c196efc Mon Sep 17 00:00:00 2001
From: hmurata <hmurata>
Date: Tue, 18 Nov 2003 06:36:31 +0000
Subject: [PATCH] * wl-folder.el (wl-folder-create-subr): Re-indent.

* elmo-nntp.el (elmo-folder-exists-p-plugged): Re-indent.
---
 elmo/elmo-nntp.el |    8 ++++----
 wl/wl-folder.el   |   20 ++++++++++----------
 2 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/elmo/elmo-nntp.el b/elmo/elmo-nntp.el
index cfd8f05..1cf8b80 100644
--- a/elmo/elmo-nntp.el
+++ b/elmo/elmo-nntp.el
@@ -1078,10 +1078,10 @@ Don't cache if nil.")
 
 (luna-define-method elmo-folder-exists-p-plugged ((folder elmo-nntp-folder))
   (let ((session (elmo-nntp-get-session folder)))
-	  (elmo-nntp-send-command
-	   session
-	   (format "group %s"
-		   (elmo-nntp-folder-group-internal folder)))
+    (elmo-nntp-send-command
+     session
+     (format "group %s"
+	     (elmo-nntp-folder-group-internal folder)))
     (elmo-nntp-read-response session)))
 
 (defun elmo-nntp-retrieve-field (spec field from-msgs)
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 241457b..ded5218 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -2847,16 +2847,16 @@ Call `wl-summary-write-current-folder' with current folder name."
 
 (defun wl-folder-create-subr (folder)
   (if (elmo-folder-creatable-p folder)
-  (if (y-or-n-p (format "Folder %s does not exist, create it? "
-			(elmo-folder-name-internal folder)))
-      (progn
-	(message "")
-	(setq wl-folder-entity-hashtb
-	      (wl-folder-create-entity-hashtb
-	       (elmo-folder-name-internal folder)
-	       wl-folder-entity-hashtb))
-	(unless (elmo-folder-create folder)
-	  (error "Create folder failed")))
+      (if (y-or-n-p (format "Folder %s does not exist, create it? "
+			    (elmo-folder-name-internal folder)))
+	  (progn
+	    (message "")
+	    (setq wl-folder-entity-hashtb
+		  (wl-folder-create-entity-hashtb
+		   (elmo-folder-name-internal folder)
+		   wl-folder-entity-hashtb))
+	    (unless (elmo-folder-create folder)
+	      (error "Create folder failed")))
 	(error "Folder %s is not created" (elmo-folder-name-internal folder)))
     (error "Folder %s does not exist" (elmo-folder-name-internal folder))))
 
-- 
1.7.10.4