From c40a2fddecae6dbf6b67662efaaebe5181b8403b Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 23 Jul 2001 08:54:24 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-folder-open-internal): Fixed. --- elmo/ChangeLog | 2 ++ elmo/elmo-shimbun.el | 16 ++++++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) 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 + * 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)))) -- 1.7.10.4