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

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

;; (setq gnus-started-hook nil)
(defun gnus-started-hook-f ()
  (gnus-group-refresh) )
(setq gnus-started-hook #'gnus-started-hook-f)

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

;; misc
(setq gnus-use-full-window nil)
(setq gnus-inhibit-images t)
(setq gnus-default-directory "~/News")

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

(setq gnus-select-method '(nntp "news.gmane.org"))

; (require 'gnus-namazu)
(setq gnus-secondary-select-methods '((nnml "") ; (nnir-search-engine namazu))
                                      (nntp "nntp.aioe.org")
                                      (nntp "news.gwene.org")
                                      (nntp "news.gnus.org")
                                      ))

(setq gnutls-min-prime-bits 1024) ; 256 -> warning (must restart Gnus on change)

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

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

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

;; init / fanfare / verbose
(setq gnus-inhibit-startup-message t)
(setq gnus-interactive-exit 'quiet)

;; it *is* "underground _experts_ united"!
(setq gnus-novice-user nil
      gnus-expert-user (not gnus-novice-user) ) ; :)
(setq gnus-verbose 0 ; [0, 10]
      gnus-verbose-backends gnus-verbose) ; hey, not bad :)

;; HTML
(setq mm-text-html-renderer #'w3m)
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))

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

;; (setq gnus-post-method 'native)
;; (setq gnus-post-method 'current)
(defun new-message ()
  (interactive)
  (unless (gnus-alive-p) (gnus))
  (gnus-post-news 'post "") )

(provide 'gnus-my)