From mboxrd@z Thu Jan  1 00:00:00 1970
Message-ID: <502eb27bbd6508a53646913a89c6e3c1@collyer.net>
To: 9fans@cse.psu.edu
Subject: Re: [9fans] acme + mh
Date: Mon,  6 Feb 2006 18:26:25 -0800
From: geoff@collyer.net
In-Reply-To: <43E780AB.1080405@lanl.gov>
MIME-Version: 1.0
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
Topicbox-Message-UUID: f5a6be76-ead0-11e9-9d60-3106f5b1d025

> - want a more convenient way to name folders - i have a lot

Could you elaborate?  You need to use Put rather than Save to create a
`folder' (alternate mailbox); is that your objection?  You should be
able to create hierarchies too; though I have done only a very limited
form of this.

> - want automated refiling rules

I do this in my pipeto filter.  Here's a shortened version of it:

#!/bin/rc
# pipeto local!$user /mail/box/$user/mbox - file incoming spam
rfork en
bind -c /mail/tmp /tmp

ml=/mail/box/geoff		# use your login name here, or get it from $1
check=/tmp/check.$pid
incoming=/tmp/incoming.$pid

cd $ml || exit 'no '^$ml

>$check
cat >$incoming
# -h: search header; -b: search header & body.
# delivers to $2 if nothing matches.
# note that filter locks my main mail box while it runs.
upas/filter -h $1 $2 <$incoming \
 '(^|\n)Content-Type: text/plain;charset="GB2312"' /dev/null \
 '(^|\n)From:.*[^a-z]enemy@([^!@]+\.)?fools\.com($|[>, ])' /dev/null \
 '^cse\.psu\.edu!(9fans)-admin$'	l-\1 \
 '(^|\n)([Tt]o|[Cc][Cc]|List-Id):.*[^a-z](9grid)([@.]nwn\.definitive\.org)' l-\3 \
 '([^!@]+\.)?(efax|eziba|itsj|musicmatch)\.com!' /dev/null \
 'collyer\.net!claudia'			$check \
 '^([^!]+\.)?(acm|ieee|maps|usenix)\.(org|ORG)!' l-\2 \
 '^([^!]+\.)?(acm)queue\.(com|COM)!'	l-\2 \
 '^([^!]+\.)?(comsoc|svtii)\.(org|ORG)!' l-ieee \
 '^([^!]+\.)?ACM\.(org|ORG)!'		l-acm \
 '(^|\n)[Ss]ubject: IEEE '		l-ieee \
 '(^|\n)([Tt]o|[Cc][Cc]):.*[	, "''<]geoff\.ieee@collyer.net' l-ieee \
 '(^|\n)([Tt]o|[Cc][Cc]):.*@listserv\.ieee\.org' l-ieee \
 '(^|\n)([Tt]o|[Cc][Cc]):.*@LISTSERV\.IEEE\.ORG' l-ieee \
 '^(sans)\.org!'			l-\1 \
 '(^|\n)([Tt]o|[Cc][Cc]|From):.*[	, "''<]((geoff|postmaster|mailer-daemon|MAILER-DAEMON)[@,.]|(geoff|postmaster|mailer-daemon|MAILER-DAEMON)$|[^	, ]+!(geoff|postmaster|mailer-daemon|MAILER-DAEMON))' $check \
 '^'					$check \


rv=$status
if (test -s $check) {	# message wasn't auto-filed, see if we know the sender
	./pipeto.token $* <$incoming
	rv=$status
}
rm -f $check $incoming
exit $rv