Added variable mu4e-confirm-quit.
This commit is contained in:
@ -128,6 +128,11 @@ see `mu4e-headers-visible-lines' and
|
|||||||
view buffer."
|
view buffer."
|
||||||
:group 'mu4e-view)
|
:group 'mu4e-view)
|
||||||
|
|
||||||
|
(defcustom mu4e-confirm-quit t
|
||||||
|
"Whether to confirm to quit mu4e."
|
||||||
|
:type 'boolean
|
||||||
|
:group 'mu4e)
|
||||||
|
|
||||||
;; crypto
|
;; crypto
|
||||||
(defgroup mu4e-crypto nil
|
(defgroup mu4e-crypto nil
|
||||||
"Crypto-related settings."
|
"Crypto-related settings."
|
||||||
|
|||||||
@ -82,7 +82,9 @@
|
|||||||
(defun mu4e-quit()
|
(defun mu4e-quit()
|
||||||
"Quit the mu4e session."
|
"Quit the mu4e session."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
(if mu4e-confirm-quit
|
||||||
(when (y-or-n-p (mu4e-format "Are you sure you want to quit?"))
|
(when (y-or-n-p (mu4e-format "Are you sure you want to quit?"))
|
||||||
|
(mu4e~stop))
|
||||||
(mu4e~stop)))
|
(mu4e~stop)))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|||||||
Reference in New Issue
Block a user