#!/bin/sh
# usage: rmail-cull file.gz string2cull
gunzip -c $1 | perl ~/perl/rmail/rmail-scan.perl | grep -i $2 | sed 's/^\([0-9]*\) .*$/\1/' | uniq > $2-$1.map
gunzip -c $1 | perl ~/perl/rmail/rmail-map.perl $2-$1.map | gzip -9 > $2-$1
gunzip -c $1 | perl ~/perl/rmail/rmail-scan.perl | sed 's/^\([0-9]*\) .*$/\1/' | uniq > $1.allmap
comm -23 $1.allmap $2-$1.map > $2-$1.unmap
gunzip -c $1 | perl ~/perl/rmail/rmail-map.perl $2-$1.unmap | gzip -9 > un-$2-$1
mv un-$2-$1 $1