For ghost summary problem.

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

diff --git a/elmo/elmo2.el b/elmo/elmo2.el
index 31a82ee..706b9f5 100644 (file)
--- a/elmo/elmo2.el
+++ b/elmo/elmo2.el
@@ -364,12 +364,12 @@ without cacheing."
              )
            (if (and ret-val
                     (not no-delete-info))
-               (message "Cleaning up src folder...done.")
+               (message "Cleaning up src folder...done")
              )
            ret-val)
        (if no-delete
            (progn
-             (message "Copying messages...done.")
+             (message "Copying messages...done")
              t)
          (if (eq len 0)
              (message "No message was moved.")
@@ -492,7 +492,7 @@ without cacheing."
                (elmo-msgdb-location-load path)
                (elmo-msgdb-make-overview-hashtb overview)
                )))
-    (message "Loading msgdb for %s...done." folder)
+    (message "Loading msgdb for %s...done" folder)
     (elmo-folder-set-info-max-by-numdb folder (nth 1 ret-val))
     ret-val))
 
@@ -507,7 +507,7 @@ without cacheing."
       (elmo-msgdb-location-save path (cadddr msgdb))
     ;(elmo-sync-validity folder);; for validity check!!
       ))
-  (message "Saving msgdb for %s...done." folder)
+  (message "Saving msgdb for %s...done" folder)
   (elmo-folder-set-info-max-by-numdb folder (cadr msgdb)))
 
 (defun elmo-msgdb-add-msgs-to-seen-list-subr (msgs msgdb seen-marks seen-list)
@@ -622,7 +622,7 @@ without cacheing."
              len)
          nil
        (elmo-msgdb-set-number-alist msgdb new-numlist)
-       (message "Synchronize number...done.")
+       (message "Synchronize number...done")
        new-numlist))))
 
 (defun elmo-get-msg-filename (folder number &optional loc-alist)
@@ -721,7 +721,7 @@ message list in msgdb. Otherwise, number-list is load from msgdb."
        (let ((number-list (or number-list
                               (mapcar 'car
                                       (elmo-msgdb-number-load
-                                       (elmo-msgdb-expand-path spec))))))
+                                       (elmo-msgdb-expand-path folder))))))
          ;; No info-cache.
          (setq in-db (sort number-list '<))
          (setq in-db-max (or (nth (max 0 (1- (length in-db))) in-db)