From: hmurata <hmurata>
Date: Mon, 15 Sep 2003 01:30:24 +0000 (+0000)
Subject: * elmo.el (elmo-generic-folder-commit): Don't load msgdb.
X-Git-Tag: wl-2_11_13~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7bfba612a5f5d3c126a2e63f7b198c7b06e00c72;p=elisp%2Fwanderlust.git

* elmo.el (elmo-generic-folder-commit): Don't load msgdb.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a7f693b..550794c 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2003-09-15  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* elmo.el (elmo-generic-folder-commit): Don't load msgdb.
+
 	* elmo-mark.el (elmo-mark-folder-msgdb-create): Use flag instead
 	of mark.
 
diff --git a/elmo/elmo.el b/elmo/elmo.el
index fea0a82..cbe7ad0 100644
--- a/elmo/elmo.el
+++ b/elmo/elmo.el
@@ -675,8 +675,8 @@ Return a cons cell of (NUMBER-CROSSPOSTS . NEW-MARK-ALIST).")
   (elmo-generic-folder-commit folder))
 
 (defun elmo-generic-folder-commit (folder)
-  (when (elmo-folder-persistent-p folder)
-    (let ((msgdb (elmo-folder-msgdb folder)))
+  (let ((msgdb (elmo-folder-msgdb-internal folder)))
+    (when (and msgdb (elmo-folder-persistent-p folder))
       (when (elmo-msgdb-message-modified-p msgdb)
 	(elmo-folder-set-info-max-by-numdb
 	 folder