[EMAIL PROTECTED] (Karl M. Hegbloom) writes:
> This works for me in XEmacs 20. I get my mail home using
> `fetchmail', which is configured with an "mua" line in its control
> file that has it run `formail -s procmail'.
I just let gnus do the splitting (no procmail necessary. From my
.emacs file:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Gnus setup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
'(|
("Gnus-Warning" ".*" "duplicates")
("X-Mailing-List" "debian-announce" "debian-announcements")
("X-Mailing-List" "debian-devel-announce" "debian-announcements")
("X-Mailing-List" "debian-changes" "debian-changes")
("X-Mailing-List" "debian-devel-changes" "debian-changes")
("X-Mailing-List" "debian-bugs-dist" "debian-bugs")
("X-Mailing-List" "debian-user" "debian-user")
("X-Mailing-List" "debian-devel" "debian-devel")
("X-Mailing-List" "debian-private" "debian-private")
("Sender" "[EMAIL PROTECTED]" "executor")
("Sender" "[EMAIL PROTECTED]" "pioneer-users")
("Sender" "[EMAIL PROTECTED]" "accelerated-x-users")
("Resent-From" "[EMAIL PROTECTED]|[EMAIL PROTECTED]"
"lesstif")
("X-Mailing-List" "[EMAIL PROTECTED]" "gtk")
"inbox"))
(setq browse-url-browser-function 'browse-url-netscape)
(setq gnus-select-method '(nntp "newshost.cc.utexas.edu"))
(setq gnus-asynchronous t)
(setq gnus-subscribe-newsgroup-method 'gnus-subscribe-zombies)
(setq gnus-check-new-newsgroups 'ask-server)
(setq gnus-save-newsrc-file nil)
(setq nnmail-crosspost nil)
;; So the server will accept me
(setq gnus-local-domain "cs.utexas.edu")
;; So the from field will be reasonable.
(setq gnus-user-from-line "Rob Browning <[EMAIL PROTECTED]>")
(setq user-mail-address "[EMAIL PROTECTED]")
(setq gnus-local-organization "The University of Texas at Austin")
(setq gnus-extract-address-components 'mail-extract-address-components)
(setq gnus-auto-select-next t)
(setq gnus-auto-select-same t)
(setq gnus-use-cross-reference 'all)
(setq gnus-auto-select-newsgroup nil)
(setq gnus-summary-check-current t)
(setq gnus-fetch-old-headers 'some)
(setq gnus-thread-hide-subtree t)
(setq gnus-thread-indent-level 2)
(setq gnus-build-sparse-threads 'some)
(setq gnus-keep-backlog 50)
;;; Score file stuff
(setq gnus-kill-killed t) ;; so you can re-kill a set of articles
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(setq gnus-use-cache 'passive)
(setq gnus-secondary-select-methods
'((nnml "osiris"
(nnml-directory "~/Mail/Incoming")
(nnml-active-file "~/Mail/Incoming/active")
)))
(setq gnus-message-archive-method
'(nnml "outgoing"
(nnml-directory
"~/Mail/Outgoing")
(nnml-active-file "~/Mail/Outgoing/active")
(nnml-get-new-mail nil)))
(setq gnus-message-archive-group
'((if (message-news-p)
"misc-news"
"misc-mail")))
(setq nnmail-delete-duplicates 'warn)
(setq nnmail-message-id-cache-length 3000)
(setq gnus-permanently-visible-groups "^nnml+")
--
Rob
--
TO UNSUBSCRIBE FROM THIS MAILING LIST: e-mail the word "unsubscribe" to
[EMAIL PROTECTED] .
Trouble? e-mail to [EMAIL PROTECTED] .
