* elmo.el (elmo-folder-move-messages): Don't display any message.

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

diff --git a/elmo/elmo.el b/elmo/elmo.el
index b8b24a1..d7be5bd 100644 (file)
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -1092,8 +1092,8 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
          (elmo-folder-close dst-folder)))
       (if (and (not no-delete) succeeds)
          (progn
-           (if (not no-delete-info)
-               (message "Cleaning up src folder..."))
+           ;;(if (not no-delete-info)
+           ;;(message "Cleaning up src folder..."))
            (if (and (elmo-folder-delete-messages src-folder succeeds)
                     (elmo-msgdb-delete-msgs
                      (elmo-folder-msgdb src-folder) succeeds))
@@ -1101,13 +1101,13 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
              (message "move: delete messages from %s failed."
                       (elmo-folder-name-internal src-folder))
              (setq result nil))
-           (if (and result
-                    (not no-delete-info))
-               (message "Cleaning up src folder...done"))
+           ;;(if (and result
+           ;;(not no-delete-info))
+           ;;(message "Cleaning up src folder...done"))
            result)
        (if no-delete
            (progn
-             (message "Copying messages...done")
+             ;; (message "Copying messages...done")
              t)
          (if (eq len 0)
              (message "No message was moved.")
@@ -1481,10 +1481,10 @@ If update process is interrupted, return nil.")
        flag-table crossed after-append numbers)
     (setq old-msgdb (elmo-folder-msgdb folder))
     (setq flag-table (elmo-flag-table-load (elmo-folder-msgdb-path folder)))
-    (setq numbers (sort (elmo-folder-list-messages folder nil t) '<))
     (when ignore-msgdb
       (elmo-msgdb-flag-table (elmo-folder-msgdb folder) flag-table)
       (elmo-folder-clear folder (eq ignore-msgdb 'visible-only)))
+    (setq numbers (sort (elmo-folder-list-messages folder nil t) '<))
     (unless no-check (elmo-folder-check folder))
     (condition-case nil
        (progn