/home/wwwwolf/.gnus.el

;; =================================================================
;; WWWWolf's GNUS settings.
;; $Id: .gnus.el,v 1.3 2001/07/12 16:11:09 wwwwolf Exp wwwwolf $
;; =================================================================

; Everything after semicolons are considered comments and are ignored.
; Note that this is fairly UNIX-centric. I don't know how the files
; are named in Windows.

;; Mail and news servers. ==========================================

; Gnus uses "select methods" to find out what to get and present for
; reading. Our primary select method is, of course, the news server.

; In my case, I run my own news server on my own machine; gnus will
; then need to connect to server named "localhost". You probably need
; to put your news server name there instead of this.

(setq gnus-select-method '(nntp "localhost"))

; The secondary method is set to read stuff from my UNIX mailbox.
; (Windows users probably don't need to pay attention to these
; and just comment them out. Or, maybe there's way to read POP
; or something. No idea.)

(setq gnus-secondary-select-methods '((nnmbox "private")))
(setq nnmail-spool-file "/var/spool/mail/wwwwolf")
(setq mail-sources
      '((file :path "/var/spool/mail/wwwwolf")))


;; Archiving articles ==============================================

; Set up the archiving.
; In plain terms:
;   - Everything will be stored under ~/Mail/archive directory.
;   - mail will be stored under that directory in mail/YYYY-MM
;     by date.
;   - News articles are stored in file news/posted.
(setq gnus-message-archive-group
      '((if (message-news-p)
        "news.posted"
      (concat "mail." (format-time-string "%Y-%m")))))
(setq gnus-message-archive-method
      '(nnfolder "archive"
         (nnfolder-directory   "~/Mail/archive")
         (nnfolder-active-file "~/Mail/archive/active")
         (nnfolder-get-new-mail nil)
         (nnfolder-inhibit-expiry t)))

;; Posting styles ==================================================

; My posting styles. This changes my usual presentation in
; different groups. In dragon-related groups, I post as Hoki, in others,
; as myself.

(setq gnus-posting-styles
      '((".*"             ; For all groups
  (signature-file "~/.signature")
     (name "Weyfour WWWWolf (Urpo Lankinen)")
     (address "wwwwolf@iki.fi")
     (organization "Procrastinating Lupines for Lazier Tomorrow, Inc."))
    ("dragons$"       ; alt.fan.dragons, rec.games.computer.ultima.dragons
  (signature-file "~/AFD/hokisig.txt")
     (name "Hoki-Aamrel the Cherry-red Dragon (Urpo Lankinen)")
     (organization "Mythical Avian Reptiles against Daemonic Stereotypes"))))


;; Shown headers ===================================================

; What headers should be shown by default? I want all the usual stuff, plus
; Organization and newsreader name (to see what programs mess up articles
; more often than others =)

(setq gnus-visible-headers
      (concat "^From:\\|^Subject:\\|^Newsgroups:\\|^Date:"
          "\\|^Organization:\\|^X-Newsreader:\\|^User-Agent:"))


;; Article saving ==================================================

; We do it the SLRN way. That is, the articles are saved in full
; as text to files named ~/News/Group.name.first.letter.capitalized

(setq gnus-default-article-saver 'gnus-summary-save-in-file)
;(setq gnus-file-save-name 'gnus-Plain-save-name)
; Dammit, 5.8.8 doesn't seem to know how the hell to do the Plain thing.
(setq gnus-file-save-name 'gnus-plain-save-name)

;; Posted article character sets ===================================

; Quoted-Unprintable is evil (even though the news server seems to
; autoconvert). Thus, we really want to disable
(setq gnus-group-posting-charset-alist
      '((".*" nil t))) ; All groups, encode all in headers, bodies 8bit.


;; Forwarded articles ==============================================

; When I hit "forward as mail", Gnus will forward articles as inline
; content (that is, part of the message), not as MIME.

(setq message-forward-as-mime nil)


;; Web browsing ====================================================

; Clicking URLs will launch Netscape, not the default browser
; (w3, the Emacs internal browser).

(setq gnus-button-url 'gnus-netscape-open-url)


;; Silliness =======================================================
      
; Display smileys as pictures
(setq gnus-treat-display-smileys nil)
; (Didn't want to. Sometimes this was just a bit too silly...)


;; NoCeM ===========================================================

; Anti-spam measures, using NoCeM (http://www.cm.org/)
; Let the fiery rain of NoCeM light up the sky, and purify the cretinous
; scumbags who Request Warez with its holy fire!
; (You probably want to consult the manual and not use these values =)
(setq gnus-use-nocem t)
(setq gnus-nocem-groups '("rec.games.roguelike.nethack"))
(setq gnus-nocem-issuers '("wwwwolf@iki.fi"))