;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/gnus/group-restore.el
;;;   https://dataswamp.org/~incal/emacs-init/gnus/group-restore.el

(require 'gnus-group)

(defun gnus-make-group-if-not-there (name method server)
  (condition-case nil
      (gnus-group-make-group name method server)
    (error nil) ))

(defun gnus-restore-groups ()
  (interactive)
  (let ((gmane-groups '(
                        "gmane.comp.video.image-magick.user"
                        "gmane.comp.shells.zsh.devel"
                        "gmane.comp.shells.zsh.user"
                        "gmane.emacs.erc.general"
                        "gmane.emacs.gnus.general"
                        "gmane.emacs.gnus.user"
                        "gmane.emacs.help"
                        "gmane.emacs.w3m"
                        ))
        (aioe-groups  '(
                        "alt.tv.survivor"
                        "gnu.emacs.help"
                        "rec.bicycles.tech"
                        "rec.sport.boxing"
                        )))
    (cl-dolist (group gmane-groups)
      (gnus-make-group-if-not-there group "nntp" "news.gmane.org") )
    (cl-dolist (group aioe-groups)
      (gnus-make-group-if-not-there group "nntp" "nntp.aioe.org") )))