;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/quit.el

(require 'gnus-incal)

(defun mute-kill-warnings ()
  (dolist (p (process-list))
    (set-process-query-on-exit-flag p nil) ))

(defun kill-everything ()
  (gnus-kill-if-runs)
  (mute-kill-warnings) )

;; (setq kill-emacs-hook nil)
(defun kill-emacs-hook-f ()
  (kill-everything) )
(add-hook 'kill-emacs-hook #'kill-emacs-hook-f)

(provide 'quit)