From: teranisi <teranisi>
Date: Tue, 23 Apr 2002 11:30:29 +0000 (+0000)
Subject: * wl.el (wl): inhibit-quit while wl-folder.
X-Git-Tag: elmo-mark-root~199
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5f29516aa214ae780fc3b7ee37f2436c7f442451;p=elisp%2Fwanderlust.git

* wl.el (wl): inhibit-quit while wl-folder.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8f572de..223da73 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl.el (wl): inhibit-quit while wl-folder.
+
 2002-04-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-default-draft-cite): Bind elmo-mime-charset
diff --git a/wl/wl.el b/wl/wl.el
index 921037d..0339e63 100644
--- a/wl/wl.el
+++ b/wl/wl.el
@@ -809,7 +809,8 @@ If ARG (prefix argument) is specified, folder checkings are skipped."
 		(wl-check-variables)
 		(wl-check-variables-2)
 		(message "Checking type of variables...done")))
-	  (wl-plugged-init (wl-folder arg))
+	  (let ((inhibit-quit t))
+	    (wl-plugged-init (wl-folder arg)))
 	  (unless arg
 	    (run-hooks 'wl-auto-check-folder-pre-hook)
 	    (wl-folder-auto-check)