;; -*- emacs-lisp -*-

(load "~/cvs-gnus/contrib/xml.el")
(load "~/cvs-gnus/lisp/nnrss.el")

'(user-mail-address "chris@void.printf.net" t)
'(query-user-mail-address nil)

(defvar nnrss-group-alist '(
    ("Slashdot" "http://slashdot.org/slashdot.xml")
    ("Register" "http://www.theregister.co.uk/tonys/slashdot.rdf")
    ;; Other RSS feeds elided here.
    )
)

(setq gnus-verbose 10)
(setq gnus-verbose-backends 10) 
(setq garbage-collection-messages nil)

;; The CVS of Oort hides References: from me while composing.  It didn't
;; always, but it does now.  We don't need to delay generating it until
;; until send-time (unlike, say, Date:), so let's not; that way I can
;; check that I'm including one, too.  Yay.

(setq message-generate-headers-first '(References))

;; GC.  This keeps things somewhere around:
;;    PID USER     PRI  NI  SIZE  RSS SHARE STAT %CPU %MEM   TIME COMMAND
;;  18291 chris      0   0 56768  55M  2980 S     0.0 22.0  15:34 xemacs

(setq gc-cons-threshold 6000000)

;; General speedups.

(setq gnus-read-active-file nil) 
(setq gnus-check-new-newsgroups nil) 
(setq gnus-nov-is-evil nil) 
(setq gnus-save-newsrc-file t)

(setq user-mail-address "chris@void.printf.net")
(setq user-full-name "Chris Ball")
(setq message-from-style 'angles) 

;; Wrap at 72 cols.
(add-hook 'message-mode-hook
	'(lambda()
		(turn-on-auto-fill)
		(setq fill-column 72)))

(setq gnus-select-method '(nntp "magenta.plig.net"))

(setq gnus-secondary-select-methods '((nnmaildir "void"
                         (directory "~/maildir")
                         (directory-files nnheader-directory-files-safe)
                         (get-new-mail nil))))

(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-default-smtp-server "localhost")

;; Save a copy of outgoing messages in the outbox maildir.
(setq gnus-message-archive-group "nnmaildir+void:outbox")

;; Supercite.
(setq sc-preferred-attribution-list
      `("x-attribution" "initials" "sc-lastchoice" "firstname" "lastname"))
(setq sc-preferred-header-style 1)
(setq sc-citation-leader "   ")
(setq sc-reference-tag-string ">> ")
(setq news-reply-header-hook nil)
(autoload `sc-cite-original     "supercite" "Supercite 3.1" t)
(add-hook `mail-citation-hook `sc-cite-original)

;; Show the time since the article came in.
(setq gnus-treat-date-lapsed 'head)

;; Make sure Gnus doesn't display smiley graphics.
(setq gnus-treat-display-smileys nil)

;; Add formalities for me.
(defadvice gnus-summary-reply (after formalities () activate)
  (cjb-add-formalities))

(defun cjb-add-formalities ()
  "Add the sender's first name and my tag to e-mail."
  ;; Modified from <http://www.repose.cx/conf/.elisp/de-gnus.el>
  (save-excursion
    (message-goto-signature)
    (previous-line 2)
    (when (not (looking-at "- Chris."))
         (insert "\n\n- Chris.")))
    (let* ((to (message-fetch-field "To"))
         (address-comp (mail-extract-address-components to))
         (name (car address-comp))
         (first (or (and name (concat "" (car (split-string name)))) "")))
         
         (when first
           ;; Go to the first line of the message body. 
           (message-goto-body)
           (insert (concat (capitalize-string-as-title first) ",\n\n")))))

(gnus-compile)