From: hmurata <hmurata>
Date: Tue, 18 Nov 2003 06:36:31 +0000 (+0000)
Subject: * wl-folder.el (wl-folder-create-subr): Re-indent.
X-Git-Tag: wl-2_11_21~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a3a770d2f0a4cb11d62e61737ef10b334c196efc;p=elisp%2Fwanderlust.git

* wl-folder.el (wl-folder-create-subr): Re-indent.

* elmo-nntp.el (elmo-folder-exists-p-plugged): Re-indent.
---

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))))