From 1a14cacb787f7ceb309e311474ad8c7cc7c6355e Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 9 Dec 2022 22:41:17 +0000
Subject: gnus: ask on quit

---
 custom/jao-custom-gnus.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index f5f0c10..5707c67 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -14,6 +14,13 @@
 ;; close gnus when closing emacs, but ask when exiting
 (setq gnus-interactive-exit t)
 
+;;; Startup and kill
+(setq gnus-interactive-exit t)
+
+(defun jao-quit-gnus () (gnus-group-exit) t)
+
+(add-hook 'kill-emacs-query-functions #'jao-quit-gnus)
+
 ;;; Directories
 (defun jao-gnus-dir (dir)
   (expand-file-name dir gnus-home-directory))
-- 
cgit v1.2.3