;; This file: http://user.it.uu.se/~embe8573/conf/emacs-init/quit.el

(require 'gnus-my)

(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) )

(defun shut ()
  (interactive)
  (kill-everything)
  (shell-command "shut") )

(defun no-confirm-emacs-quit ()
  (interactive)
  (kill-everything)
  (save-buffers-kill-terminal t) ) ; silently save ... kill

(define-key (current-global-map)
  [remap save-buffers-kill-terminal] #'no-confirm-emacs-quit)

(provide 'quit)