From fe20865755c561f6b3463f50d1528ac5557612fd Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 31 Aug 2000 01:34:07 +0000 Subject: [PATCH] * 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'. --- wl/ChangeLog | 8 ++++++++ wl/wl-folder.el | 14 +++++++++----- wl/wl-summary.el | 1 + 3 files changed, 18 insertions(+), 5 deletions(-) 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 + + * 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 * 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... -- 1.7.10.4