(modb-standard-load-entity): Don't bind inhibit-quit here.

(elmo-msgdb-save): Bind inhibit-quit.
(modb-standard-message-entity): Ditto.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index aad8f9d..ff6c96b 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * modb-standard.el (modb-standard-load-entity): Don't bind inhibit-quit
+       here.
+       (elmo-msgdb-save): Bind inhibit-quit.
+       (modb-standard-message-entity): Ditto.
+
 2004-09-20  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
        * elmo-database.el: No need to require elmo-msgdb.
@@ -7498,4 +7505,3 @@
 
        * elmo-util.el (elmo-display-progress): New function.
        All other related modules are changed.
-

diff --git a/elmo/modb-standard.el b/elmo/modb-standard.el
index 20d1ee8..42d1590 100644 (file)
--- a/elmo/modb-standard.el
+++ b/elmo/modb-standard.el
@@ -196,7 +196,6 @@ When non-nil, redundunt message-id string are not saved."
 (defun modb-standard-load-entity (modb path &optional section)
   (let ((table (or (modb-standard-entity-map-internal modb)
                   (elmo-make-hash (elmo-msgdb-length modb))))
-       (inhibit-quit t)
        number msgid)
     (dolist (entity (elmo-object-load
                     (expand-file-name
@@ -250,7 +249,8 @@ When non-nil, redundunt message-id string are not saved."
       t)))
 
 (luna-define-method elmo-msgdb-save ((msgdb modb-standard))
-  (let ((path (elmo-msgdb-location msgdb)))
+  (let ((path (elmo-msgdb-location msgdb))
+       (inhibit-quit t))
     (when (elmo-msgdb-message-modified-p msgdb)
       (modb-standard-save-msgid  msgdb path)
       (modb-standard-save-entity msgdb path)
@@ -521,7 +521,8 @@ When non-nil, redundunt message-id string are not saved."
 (defun modb-standard-message-entity (msgdb key load)
   (let ((ret (elmo-get-hash-val
              key
-             (modb-standard-entity-map-internal msgdb))))
+             (modb-standard-entity-map-internal msgdb)))
+       (inhibit-quit t))
     (if (eq 'autoload (car-safe ret))
        (when (and load modb-standard-divide-number)
          (modb-standard-load-entity