>>>>> Mark Lever writes: Mark> Hi, I use gnus and rmail. I've been using rmail for so long Mark> now, and it is limited. Someone mentioned here that they Mark> use gnus for their mail and different folders contained Mark> different types of mail. Could they elaborate and explain Mark> to me how to get gnus to look at my mailbox and separate the Mark> mail into different folders?
Mark> Either to the list or directly... 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 had to create "~/Mail" and "~/Mail/.incoming" with dired to get it started. The "~/.gnus" file is right out of the Info manual, except for the function I've added.
;; -*- emacs-lisp -*- (require 'mime-setup) (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) (setq nnfolder-directory "~/Mail/") (setq nnmail-spool-file 'procmail) (setq nnmail-procmail-directory "~/Mail/.incoming/") (setq gnus-secondary-select-methods '((nnfolder ""))) (setq nnmail-procmail-suffix "") (add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp) ;;(setq gnus-group-line-format ;; "%M\%S\%p\%P\%5y: %(%-40,40g%) %d\n") (setq gnus-group-line-format "%M\%S\%p\%P\%5y: %(%-40,40g%) %6,6~(cut 2)d\n") ;;; Experimental --- plussed addresses. (defvar alias-suffix-history nil "History variable for `my-address-choice' minibuffer completion.") (setq alias-suffix-alist '(("news") ("mail") ("plug") ("xemacs") ("debdev") ("debuser") ("support") ("other") )) (make-variable-buffer-local 'mail-default-reply-to) (make-variable-buffer-local 'user-mail-address) (defun my-address-choice () "This function chooses which alias-suffix to use" (interactive) (let* ((alias-suffix (completing-read "Which alias-suffix: " alias-suffix-alist nil nil nil 'alias-suffix-history)) (mailname (exec-to-string "cat /etc/mailname")) ;Debian GNU/Linux (mailname (substring mailname 0 (1- (length mailname)))) (alias) ) (setq alias (concat (user-login-name) (and alias-suffix (concat "+" alias-suffix)) "@" mailname) mail-default-reply-to alias user-mail-address alias) (message "%s" alias))) (add-hook 'message-header-setup-hook 'my-address-choice)
# Ask XEmacs to pretend this is -*- sh -*-. PATH=/bin:/usr/bin:/usr/local/bin MAILDIR=$HOME/Mail/.incoming DEFAULT=$MAILDIR/Inbox #LOGFILE=$HOME/Mail.from LOGFILE=/dev/xconsole [EMAIL PROTECTED] # formail -s procmail #------------------------------------------------------- # From the BitterSweet Technical Support mailing list :0: * ^Resent-From:.*support Support #---------------------------------------------- # Other users/lists on this system: :0c * ^To.*slarti.*inetarena ! [EMAIL PROTECTED] :0c * ^To.*robinh.*inetarena ! [EMAIL PROTECTED] :0c * ^To.*jillian.*inetarena ! [EMAIL PROTECTED] :0c * ^To.*zaphod.*inetarena ! [EMAIL PROTECTED] # And a copy for me, since these are just aliases to # my Internet Arena account anyhow, that I use for testing. :0 * ^To.*((slarti)|(robinh)|(jillian)|(zaphod)).*inetarena Lusers #------------------------------------------ # to karlheg+support :0 * ^To:.*karlheg\+support Support #--------------------------------------------------- # Qpopper Bulletins :0 * ^To.*bulletin@(bittersweet|localhost)* * !^From.*bittersweet-support { Bullno= `printf '%04d' $(( $(tail -1 <(ls /var/spool/popbull/) | cut -d_ -f1) + 1))` Bullnm= `formail -x Subject: | tr -s [:blank:] _` UMASK=022 :0w * $^X-Passwd.*BlessedProcmail$ | formail -I X-Passwd: -I Return-Path: -I Received: \ -a 'Reply-To: [EMAIL PROTECTED]' \ -a Message-ID: \ > /var/spool/popbull/${Bullno}${Bullnm} } #--------------------------------------------------- # Spam: :0: * ^FROMearthlink SPAM #--------------------------------------------------- # Family :0: * ^From:.*(BUCKINGHAM)|(legend.*nidlink) Family #---------------------------------------------------- :0: * ^From.*CERT CERT #---------------------------------------------------- # Debian GNU/Linux: Software in the Public Interest :0: * ^TOdebian-announce Debian.Announce :0: * ^TOdebian-devel-announce Debian.Devel-Announce :0: * ^TOdebian-changes Debian.Changes :0: * ^TOdebian-devel-changes Debian.Devel-Changes :0: * ^TOdebian-bugs Debian.Bugs :0: * ^From.*bugs\.debian\.org Debian.Bugs :0: * ^TOdebian-qa Debian.QA :0: * ^TOdebian-faq Debian.FAQ :0: * ^TOdebian-user Debian.User :0: * ^TOdebian-devel Debian.Devel :0: * ^TOdebian-admintool Debian.Admintool :0: * ^TOdebian-doc Debian.Doc :0: * ^TOdebian-book Debian.Book :0: * ^TOdebian-www Debian.WWW :0: * ^TOdebian-publicity Debian.Publicity #------------------------------------------------- :0: * ^To:.*redhat-announce RedHat.Announce #------------------------------------------------- :0: * ^TOlinux.*kernel Linux.Kernel :0: * ^To.*cc-mode CC-Mode :0: * ^Toshadow-list Shadow :0: * ^TO([EMAIL PROTECTED]|[EMAIL PROTECTED]) PLUG :0: * ^TOprocmail Procmail :0: * ^TOsmartlist Smartlist :0: * ^TOparport Parport #--------------------------------------------------- # XEmacs mailing lists :0: * ^TOxemacs-beta-discuss XEmacs.Discuss :0: * ^TOxemacs-beta * ! ^Subject.*re: * ^Subject.*patch XEmacs.Patches :0: * ^TOxemacs-beta XEmacs.Beta #---------------------------------------------- # Misc. Mailing lists :0: * ^From.*wordsmith.org Wordsmith :0: * ^To:[EMAIL PROTECTED] Lfa :0: * [EMAIL PROTECTED] LyX :0: * [EMAIL PROTECTED] GCL #---------------------------------------------- # Cron mail from mail run job bringing diald up. :0 * ^Subject.*/bin/echo.*/dev/dialdctl /dev/null #--------------------------------------------------- # System Accounts :0: * ^From.*Cron.Daemon Cron :0: * ^From.*news.<news> News :0: * ^Subject.*Returned.mail: Bounce :0: * ^FROM_DAEMON Daemons #---------------------------------------------- # Mail from myself and from anyone at Inetarena :0: * ^From.*karlheg Myself :0: * ^From.*inetarena Inetarena
mailto:[EMAIL PROTECTED] (Karl M. Hegbloom) http://www.inetarena.com/~karlheg Portland, OR USA Debian GNU 1.3 Linux 2.1.36 AMD K5 PR-133