From: hmurata <hmurata>
Date: Fri, 10 Feb 2006 12:13:55 +0000 (+0000)
Subject: (elmo-folder-msgdb-create): Remove an unnecessary
X-Git-Tag: wl-2_15_3~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c04d010b697b94f3d48c66b72dbf41ac9393fb9b;p=elisp%2Fwanderlust.git

(elmo-folder-msgdb-create): Remove an unnecessary
assignment.
(elmo-folder-message-make-temp-files): Use `number-to-string'
instead of `int-to-string'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 8359dd9..fae09f3 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2006-02-10  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-search.el (elmo-folder-msgdb-create): Remove an unnecessary
+	assignment.
+	(elmo-folder-message-make-temp-files): Use `number-to-string'
+	instead of `int-to-string'.
+
 2006-01-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-search.el (elmo-folder-delete-messages): Define.
diff --git a/elmo/elmo-search.el b/elmo/elmo-search.el
index b350dc0..5091831 100644
--- a/elmo/elmo-search.el
+++ b/elmo/elmo-search.el
@@ -139,8 +139,7 @@ Returns non-nil if fetching was succeed.")
 		      folder number))
 	(when entity
 	  (elmo-msgdb-append-entity new-msgdb entity '(new unread)))
-	(elmo-progress-notify 'elmo-folder-msgdb-create)
-	(setq numbers (cdr numbers))))
+	(elmo-progress-notify 'elmo-folder-msgdb-create)))
     (message "Creating msgdb...done")
     new-msgdb))
 
@@ -174,12 +173,12 @@ Returns non-nil if fetching was succeed.")
 							 &optional
 							 start-number)
   (let ((temp-dir (elmo-folder-make-temporary-directory folder))
-	(cur-number (if start-number 0)))
+	(cur-number 0))
     (dolist (number numbers)
       (elmo-copy-file
        (elmo-message-file-name folder number)
        (expand-file-name
-	(int-to-string (if start-number (incf cur-number) number))
+	(number-to-string (if start-number (incf cur-number) number))
 	temp-dir)))
     temp-dir))