* wl-summary.el (wl-summary-sync-update3): Call `wl-folder-confirm-existence'.

* wl-folder.el (wl-folder-sync-entity): Don't call
 `wl-folder-confirm-existence'.

diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 8c727b1..1a1a0a2 100644 (file)
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -989,7 +989,6 @@ If current line is group folder, check all sub entries."
        (wl-folder-sync-entity (car flist) unread-only)
        (setq flist (cdr flist)))))
    ((stringp entity)
-    (wl-folder-confirm-existence entity 'force)
     (let ((nums (wl-folder-get-entity-info entity))
          (wl-summary-highlight (if (or (wl-summary-sticky-p entity)
                                        (wl-summary-always-sticky-folder-p

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 68f321b..8c42420 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2170,6 +2170,7 @@ If optional argument is non-nil, checking is omitted."
     (setq seen-list
          (wl-summary-flush-pending-append-operations seen-list))
     (goto-char (point-max))
+    (wl-folder-confirm-existence folder 'force)
     (message "Checking folder diff...")
     (elmo-commit folder)
     (setq in-folder (elmo-list-folder folder))