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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8f572de..223da73 100644 (file)
--- 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 (file)
--- 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)