* 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 (file)
--- 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 (file)
--- 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))))