From: teranisi <teranisi>
Date: Thu, 23 Sep 2004 02:45:28 +0000 (+0000)
Subject: (modb-standard-load-entity): Don't bind inhibit-quit here.
X-Git-Tag: wl-2_12-root~82
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=749d76f9840969627326106f2b287036bd45d0a5;p=elisp%2Fwanderlust.git

(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
--- 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
--- 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