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

(require 'gnus)
(require 'gnus-sum)
(require 'switch-to-buffer-regexp)

(defun gnus-switch-to-group-buffer ()
  (interactive)
  (if (gnus-alive-p)
      (switch-to-buffer gnus-group-buffer)
    (gnus) ))

(defun gnus-summary-exit-and-save-all ()
  (interactive)
  (let*((summary-buf-names
         (cl-remove-if-not
           (lambda (b) (string-match-p "*Summary" b))
           (buffer-names))) )
    (when summary-buf-names
      (dolist (b summary-buf-names)
        (kill-buffer b) )
      (gnus-summary-save-newsrc) )))

(provide 'group-summary)