Document missing control strings for wl-summary-line-format

[elisp/wanderlust.git] / elmo / elmo-search.el

diff --git a/elmo/elmo-search.el b/elmo/elmo-search.el
index 9b138cc..59197ec 100644 (file)
--- a/elmo/elmo-search.el
+++ b/elmo/elmo-search.el
@@ -127,11 +127,9 @@ Returns non-nil if fetching was succeed.")
 (luna-define-method elmo-folder-msgdb-create ((folder elmo-search-folder)
                                              numbers flag-table)
   (let ((new-msgdb (elmo-make-msgdb))
-       (num (length numbers))
        entity)
-    (message "Creating msgdb...")
-    (elmo-with-progress-display (> num elmo-display-progress-threshold)
-       (elmo-folder-msgdb-create num "Creating msgdb...")
+    (elmo-with-progress-display (elmo-folder-msgdb-create (length numbers))
+       "Creating msgdb"
       (dolist (number numbers)
        (setq entity (elmo-search-engine-create-message-entity
                      (elmo-search-folder-engine-internal folder)
@@ -139,9 +137,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))))
-    (message "Creating msgdb...done")
+       (elmo-progress-notify 'elmo-folder-msgdb-create)))
     new-msgdb))
 
 (luna-define-method elmo-folder-message-file-p ((folder elmo-search-folder))
@@ -174,13 +170,14 @@ 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 (or start-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))
-       temp-dir)))
+       (number-to-string (if start-number cur-number number))
+       temp-dir))
+      (incf cur-number))
     temp-dir))
 
 (luna-define-method elmo-map-message-fetch ((folder elmo-search-folder)
@@ -211,6 +208,11 @@ Returns non-nil if fetching was succeed.")
                    (concat "^" (regexp-quote
                                 (elmo-folder-prefix-internal folder))))))
 
+(luna-define-method elmo-folder-delete-messages ((folder elmo-search-folder)
+                                                numbers)
+  (elmo-folder-kill-messages folder numbers)
+  t)
+
 
 ;;; Search engine