* wl-summary.el (wl-summary-sync-update): If sync-result is non-nil,

[elisp/wanderlust.git] / wl / wl-summary.el

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 1123ba1..0d09c7b 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2061,8 +2061,7 @@ If ARG is non-nil, checking is omitted."
     (setq new-msgdb (nth 0 sync-result))
     (setq delete-list (nth 1 sync-result))
     (setq crossed (nth 2 sync-result))
-    (if (or (and sync-all sync-result)
-           sync-result)
+    (if sync-result
        (progn
          ;; Setup sync-all
          (if sync-all (wl-summary-sync-all-init))
@@ -2142,12 +2141,17 @@ If ARG is non-nil, checking is omitted."
          (if elmo-use-database
              (elmo-database-close))
          (run-hooks 'wl-summary-sync-updated-hook)
-         (setq mes (format "Updated (-%d/+%d) message(s)"
-                           (length delete-list) num)))
-      (setq mes (format
-                "No updates for \"%s\"" (elmo-folder-name-internal folder))))
+         (setq mes 
+               (if (and (eq (length delete-list) 0)
+                        (eq num 0))
+                   (format
+                    "No updates for \"%s\"" (elmo-folder-name-internal
+                                             folder))
+                 (format "Updated (-%d/+%d) message(s)"
+                         (length delete-list) num))))
+      (setq mes "Quit updating."))
     ;; synchronize marks.
-    (if wl-summary-auto-sync-marks
+    (if (and wl-summary-auto-sync-marks sync-result)
        (wl-summary-sync-marks))
     ;; scoring
     (when wl-use-scoring