From: teranisi <teranisi>
Date: Thu, 31 Aug 2000 01:45:55 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync-update3): Call `wl-folder-confirm-existence'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=173c7be59190710f879beec23de602b096f655d6;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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))