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