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

(require 'gnus)
(require 'gnus-msg)
(require 'gnus-score)
(require 'gnus-start)
(require 'group)

(setq gnus-inhibit-slow-scoring t)
(setq gnus-suppress-duplicates  t)
(setq gnus-use-full-window      nil)

;; (setq gnus-extra-headers nil)
(setq gnus-extra-headers '(Cc Gcc Keywords Newsgroups To X-Spam-Flag))

(setq gnus-default-directory "~/News")

(setq message-syntax-checks '((existing-newsgroups . disabled)
                              (sender              . disabled) ))

(setq gnus-always-read-dribble-file t)

;; select
(setq gnus-select-method             '(nntp "news.gmane.io"))
(setq gnus-secondary-select-methods '((nntp "nntp.aioe.org")
                                      (nnml "") ))

;; undesired groups
(setq gnus-check-new-newsgroups nil)
(setq gnus-save-killed-list     nil)

;; Gnus' .newsrc.eld, not other's .newsrc
(setq gnus-read-newsrc-file nil)
(setq gnus-save-newsrc-file nil)

;; no fanfare
(setq gnus-inhibit-startup-message t)
(setq gnus-interactive-exit 'quiet)

;; uXu
(setq gnus-novice-user nil
      gnus-expert-user (not gnus-novice-user) )

(setq gnus-verbose 1 ; [0, 10], 1 = errors
      gnus-verbose-backends gnus-verbose)

(defun gnus-kill-if-runs ()
  (when (gnus-alive-p) (gnus-group-exit)) )

(defun new-message (&optional force)
  (interactive "P")
  (message (format "%s" force))
  (if (or (not (eq major-mode 'message-mode)) force)
      (progn
        (unless (gnus-alive-p) (gnus))
        (gnus-post-news 'post "") )
    (message "did nothing. C-u to force") ))

(provide 'gnus-my)