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