From: kaoru <kaoru>
Date: Tue, 31 Aug 2010 10:20:41 +0000 (+0000)
Subject: * elmo-localdir.el (elmo-folder-pack-numbers): Fix `elmo-bind-directory' indent.
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-1^2~5
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fwanderlust.git;a=commitdiff_plain;h=b3014a35763a3e607a0a6850b20ed1564639774a

* elmo-localdir.el (elmo-folder-pack-numbers): Fix `elmo-bind-directory' indent.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 337790b..4645a97 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2010-08-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* elmo-localdir.el (elmo-folder-pack-numbers): Fix
+	`elmo-bind-directory' indent.
+
 	* elmo-imap4.el (elmo-imap4-folder-list-range): Fix indent (only
 	cosmetic fix).
 
diff --git a/elmo/elmo-localdir.el b/elmo/elmo-localdir.el
index 9651f8a..78a30f1 100644
--- a/elmo/elmo-localdir.el
+++ b/elmo/elmo-localdir.el
@@ -329,11 +329,10 @@
       (dolist (old-number numbers)
 	(setq entity (elmo-msgdb-message-entity msgdb old-number))
 	(when (not (eq old-number new-number)) ; why \=() is wrong..
-	  (elmo-bind-directory
-	   dir
-	   ;; xxx  nfs,hardlink
-	   (rename-file (number-to-string old-number)
-			(number-to-string new-number) t))
+	  (elmo-bind-directory dir
+	    ;; xxx  nfs,hardlink
+	    (rename-file (number-to-string old-number)
+			 (number-to-string new-number) t))
 	  (elmo-message-entity-set-number entity new-number))
 	(elmo-msgdb-append-entity new-msgdb entity
 				  (elmo-msgdb-flags msgdb old-number))