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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index a7f693b..550794c 100644 (file)
--- 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 (file)
--- 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