my .gnus.el file

(require 'smtpmail)
(require 'pgg)

;; connect to imaps
(setq gnus-select-method 
      '(nnimap "fm" 
	       (nnimap-address "REDACTED")
	       (nnimap-stream ssl) 
	       (nnimap-server-port 993)
	       (nnimap-expunge-on-close always)))

;; sending mail
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-starttls-credentials
       '(("REDACTED" 25 nil nil)))
(setq smtpmail-smtp-server "REDACTED")
(setq smtpmail-default-smtp-server "REDACTED")

;; identity management
(if (run-at-work)
    (setq user-full-name "REDACTED"
	  smtpmail-sendto-domain "REDACTED"
	  user-mail-address "REDACTED")
  (setq user-full-name "REDACTED"
	user-mail-address "REDACTED"))

(setq gnus-posting-styles
      '(((header "to" "REDACTED")
	 (from (concat user-full-name " REDACTED")))
	((header "to" "REDACTED")
	 (from (concat user-full-name " REDACTED")))
	((header "to" "REDACTED")
	 (from (concat user-full-name " REDACTED")))
	((header "to" "REDACTED")
	 (from (concat user-full-name " REDACTED")))))

;; mail headers
(setq gnus-visible-headers 
      '("^From:" 
	"^Subject:" 
	"^Date:"
	"^Reply-To:"
	"^To:" 
	"^[BGF]?Cc:"))

;; some other vars
(custom-set-variables
 '(gnus-asynchronous t)
 '(gnus-use-cache t)
 '(mm-inline-text-html-with-w3m-keymap t)
 '(mm-text-html-renderer (quote w3m))
 '(message-mode-hook 
   (quote(
	  mail-text 
	  turn-on-auto-fill 
	  turn-on-font-lock 
	  mail-text 
	  not-modified))) 
 '(pgg-default-user-id "REDACTED")
 '(pgg-query-keyserver nil)
 '(gnus-novice-user nil))

;; no newsrc
(setq
 gnus-save-newsrc-file nil 
 gnus-read-newsrc-file nil 
 )

;; saw this in someone's .gnus, seemed useful
(setq mm-discouraged-alternatives 
      (append mm-discouraged-alternatives 
              '("text/html" "text/richtext")))

;; check email
(gnus-demon-add-handler 'gnus-group-get-new-news 2 t)
(gnus-demon-init)

;; pgg
(setq mm-verify-option 'known)
(setq mm-decrypt-option 'known)

;; saving sent messages
(setq gnus-message-archive-group
      '((if (message-news-p)
	    "nnml:Send-News"
	  "nnml:Send-Mail")))

(setq gnus-visible-headers
      '("^From" "^Subject" "^Date" "^To" "^Cc" "^User-Agent"))

;; biff
(defvar foundnewmbox "")
(defun fmbiff ()
  (interactive)
  (save-excursion
    (set-buffer "*Group*")
    (beginning-of-buffer)
    (defvar foundanymbox nil)
    (cond ((re-search-forward "INBOX.ALL" nil t)
           (setq foundanymbox t))
          (t (setq foundanymbox nil)))
    (set-buffer "*Group*")
    (beginning-of-buffer)
    (cond ((re-search-forward "0: INBOX.ALL" nil t)
           (setq foundnewmbox ""))
          (t (if foundanymbox (setq foundnewmbox "[M]") 
               (setq foundnewmbox ""))))))

(unless (member 'foundnewmbox global-mode-string)
   (setq global-mode-string (append global-mode-string
                                    (list 'foundnewmbox))))

(add-hook 'gnus-after-getting-new-news-hook 'fmbiff)
(add-hook 'gnus-group-mode-hook 'fmbiff)

;; some shortcuts
(global-set-key (kbd "C-c i") 'fmbiff)
(global-set-key (kbd "C-c s") 'gnus-uu-mark-all)

(defcustom pgg-gpg-program "gpg2"
  "The GnuPG executable."
  :group 'pgg-gpg
  :type 'string)