#!/bin/sh
# usage: rmail-uncull file.gz string2uncull
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 -v > un-$2-$1