From: kaoru <kaoru>
Date: Tue, 31 Aug 2010 08:42:42 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only cosmetic fix).
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ff291dbe145897debf3208fed705f5adde388a57;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only cosmetic fix).
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 931d682..337790b 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only
+	cosmetic fix).
+
 2010-08-27  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* elmo-util.el (elmo-delete-char): Fix `elmo-set-work-buf' indent.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 9e15e29..baf4aa7 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1990,16 +1990,14 @@ Return nil if no complete line has arrived."
   (elmo-imap4-list
    folder
    (concat
-    (let ((killed
-          (elmo-folder-killed-list-internal
-           folder)))
+    (let ((killed (elmo-folder-killed-list-internal folder)))
       (if (and killed
-              (eq (length killed) 1)
-              (consp (car killed))
-              (eq (car (car killed)) 1))
-;; What about elmo-imap4-use-uid?
-         (format "uid %d:%s" (cdr (car killed)) max)
-       (format "uid %s:%s" min max)))
+	       (eq (length killed) 1)
+	       (consp (car killed))
+	       (eq (car (car killed)) 1))
+	  ;; What about elmo-imap4-use-uid?
+	  (format "uid %d:%s" (cdr (car killed)) max)
+	(format "uid %s:%s" min max)))
     " undeleted")))
 
 (luna-define-method elmo-folder-list-messages-plugged