* elmo-shimbun.el (elmo-folder-open-internal): Fixed.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index db47aa1..b907103 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-07-23  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-shimbun.el (elmo-folder-open-internal): Fixed.
+
        * elmo.el (elmo-generic-folder-open): Bind inhibit-quit as t
        while loading msgdb.
 

diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el
index e75718f..78b5136 100644 (file)
--- a/elmo/elmo-shimbun.el
+++ b/elmo/elmo-shimbun.el
@@ -197,15 +197,15 @@ See `shimbun-headers' for more detail about RANGE."
     folder))
 
 (luna-define-method elmo-folder-open-internal ((folder elmo-shimbun-folder))
-  (let ((inhibit-quit t))
-    (elmo-map-folder-location-setup
-     folder 
-     (elmo-msgdb-location-load (elmo-folder-msgdb-path folder)))
-    ;; Resume headers from existing msgdb.
-    (elmo-shimbun-folder-setup folder))
   (when (elmo-folder-plugged-p folder)
-    (if (elmo-shimbun-headers-check-p folder)
-       (elmo-shimbun-get-headers folder))
+    (when (elmo-shimbun-headers-check-p folder)
+      (let ((inhibit-quit t))
+       (elmo-map-folder-location-setup
+        folder 
+        (elmo-msgdb-location-load (elmo-folder-msgdb-path folder)))
+       ;; Resume headers from existing msgdb.
+       (elmo-shimbun-folder-setup folder))
+      (elmo-shimbun-get-headers folder))
     (elmo-map-folder-update-locations
      folder
      (elmo-map-folder-list-message-locations folder))))