;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------------

(require 'luki-lisp)

;; --------------------------------------------------------------------------------

(-> 'gnus-group)
(-> 'gnus-util)

;; --------------------------------------------------------------------------------

(defun kill-emacs-hook-f ()
  (when (gnus-alive-p)
    (gnus-group-exit)))

(add-hook 'kill-emacs-hook #'kill-emacs-hook-f)

;; --------------------------------------------------------------------------------

(<- 'll-quit)