From 749d76f9840969627326106f2b287036bd45d0a5 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 23 Sep 2004 02:45:28 +0000 Subject: [PATCH] (modb-standard-load-entity): Don't bind inhibit-quit here. (elmo-msgdb-save): Bind inhibit-quit. (modb-standard-message-entity): Ditto. --- elmo/ChangeLog | 8 +++++++- elmo/modb-standard.el | 7 ++++--- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index aad8f9d..ff6c96b 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,10 @@ +2004-09-23 Yuuichi Teranishi + + * 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 * 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 --- 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 -- 1.7.10.4