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

* wl-summary.el (wl-summary-sync-update3): Call `elmo-commit'.

* wl-folder.el (wl-folder-confirm-existence): Added optional argument `force'.
(wl-folder-sync-entity): Call `wl-folder-confirm-existence'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index fd7e546..595b258 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2000-08-31  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-sync-update3): Call `elmo-commit'.
+
+	* wl-folder.el (wl-folder-confirm-existence): Added optional
+	argument `force'.
+	(wl-folder-sync-entity): Call `wl-folder-confirm-existence'.
+
 2000-08-30  OKAZAKI Tetsurou  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-refile-subr): Assume
diff --git a/wl/wl-folder.el b/wl/wl-folder.el
index 8f8cd63..8c727b1 100644
--- a/wl/wl-folder.el
+++ b/wl/wl-folder.el
@@ -989,6 +989,7 @@ 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
@@ -2675,11 +2676,14 @@ If optional arg exists, don't check any folders."
 	    (error "Create folder failed")))
       (error "Folder %s is not created" entity))))
 
-(defun wl-folder-confirm-existence (folder)
-  (unless (or (wl-folder-entity-exists-p folder)
-	      (file-exists-p (elmo-msgdb-expand-path folder))
-	      (elmo-folder-exists-p folder))
-    (wl-folder-create-subr folder)))
+(defun wl-folder-confirm-existence (folder &optional force)
+  (if force
+      (unless (elmo-folder-exists-p folder)
+	(wl-folder-create-subr folder))
+    (unless (or (wl-folder-entity-exists-p folder)
+		(file-exists-p (elmo-msgdb-expand-path folder))
+		(elmo-folder-exists-p folder))
+      (wl-folder-create-subr folder))))
 
 (provide 'wl-folder)
 
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 97a119a..68f321b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2171,6 +2171,7 @@ If optional argument is non-nil, checking is omitted."
 	  (wl-summary-flush-pending-append-operations seen-list))
     (goto-char (point-max))
     (message "Checking folder diff...")
+    (elmo-commit folder)
     (setq in-folder (elmo-list-folder folder))
     (setq in-db (sort (mapcar 'car number-alist) '<))
     (when (or (eq msgdb nil) ; trick for unplugged...