> - 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@([EMAIL PROTECTED])?fools\.com($|[>, ])' /dev/null \
'^cse\.psu\.edu!(9fans)-admin$' l-\1 \
'(^|\n)([Tt]o|[Cc][Cc]|List-Id):.*[^a-z](9grid)([EMAIL PROTECTED])' l-\3 \
'([EMAIL PROTECTED])?(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]):.*[ , "''<[EMAIL PROTECTED]' l-ieee \
'(^|\n)([Tt]o|[Cc][Cc]):[EMAIL PROTECTED]' l-ieee \
'(^|\n)([Tt]o|[Cc][Cc]):[EMAIL PROTECTED]' 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
