From: teranisi <teranisi>
Date: Mon, 23 Jul 2001 08:54:24 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-folder-open-internal): Fixed.
X-Git-Tag: wl-2_7_2~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c40a2fddecae6dbf6b67662efaaebe5181b8403b;p=elisp%2Fwanderlust.git

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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index db47aa1..b907103 100644
--- 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
--- 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))))