From 5f29516aa214ae780fc3b7ee37f2436c7f442451 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 23 Apr 2002 11:30:29 +0000 Subject: [PATCH] * wl.el (wl): inhibit-quit while wl-folder. --- wl/ChangeLog | 4 ++++ wl/wl.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * wl.el (wl): inhibit-quit while wl-folder. + 2002-04-19 Yuuichi Teranishi * 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) -- 1.7.10.4