From ef6bcc90e6d17dde2f0d68fc549de09fae4457a5 Mon Sep 17 00:00:00 2001 From: Thomas Wallrafen Date: Wed, 22 Aug 2012 17:22:31 +0200 Subject: [PATCH] Added variable mu4e-confirm-quit. --- mu4e/mu4e-vars.el | 5 +++++ mu4e/mu4e.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/mu4e/mu4e-vars.el b/mu4e/mu4e-vars.el index 8141af98..5e91543b 100644 --- a/mu4e/mu4e-vars.el +++ b/mu4e/mu4e-vars.el @@ -128,6 +128,11 @@ see `mu4e-headers-visible-lines' and view buffer." :group 'mu4e-view) +(defcustom mu4e-confirm-quit t + "Whether to confirm to quit mu4e." + :type 'boolean + :group 'mu4e) + ;; crypto (defgroup mu4e-crypto nil "Crypto-related settings." diff --git a/mu4e/mu4e.el b/mu4e/mu4e.el index 5be2adcd..3f72c999 100644 --- a/mu4e/mu4e.el +++ b/mu4e/mu4e.el @@ -82,8 +82,10 @@ (defun mu4e-quit() "Quit the mu4e session." (interactive) - (when (y-or-n-p (mu4e-format "Are you sure you want to quit?")) - (mu4e~stop))) + (if mu4e-confirm-quit + (when (y-or-n-p (mu4e-format "Are you sure you want to quit?")) + (mu4e~stop)) + (mu4e~stop))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;