* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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...