1*4246b616SDavid du Colombier#!/bin/rc 2*4246b616SDavid du Colombier 3*4246b616SDavid du Colombierrfork en 4*4246b616SDavid du ColombierTMP=/tmp/spam.$sysname.$pid 5*4246b616SDavid du Colombiersed '/^$/,$ s/^From / From /' >$TMP.msg 6*4246b616SDavid du Colombierupas/fs -f $TMP.msg 7*4246b616SDavid du Colombier{ 8*4246b616SDavid du Colombier echo '# hash table' 9*4246b616SDavid du Colombierupas/msgcat $TMP.msg | upas/msgtok | 10*4246b616SDavid du Colombier grep -v '^....................(.*) '| 11*4246b616SDavid du Colombier sed 's/$/ 1/' 12*4246b616SDavid du Colombier} >$TMP.tok 13*4246b616SDavid du Colombiercd /mail/box/$user 14*4246b616SDavid du Colombier#cp $TMP.tok /tmp/_prof.spam 15*4246b616SDavid du Colombierupas/addhash -o _prof.mbox _prof.mbox 1 $TMP.tok -1 16*4246b616SDavid du Colombierupas/addhash -o _prof.spam _prof.spam 1 $TMP.tok 1 17*4246b616SDavid du Colombierrm -f $TMP.* 18*4246b616SDavid du Colombier 19