#!/bin/rc
mbox=mbox
if ( ! ~ $#* 0 )
mbox=$1
switch($mbox){
case /*
;
case *
mbox=/mail/box/$user/$mbox
}
if ( ! test -r $mbox ){
echo from: $mbox - cannot read
exit 'read fail'
}
sed -n '
/^From /,/^$/ {
/^From: /{
s/.*"([^"]+)".*/\1/
s/.*<([^>]+)>.*/\1/
s/From: //
y/#/-/
s/$/ /
s/^(................................).*/\1/
s/^/FROM/
H
}
/^Subject: /{
s/^Subject: //
y/#/-/
s/^/SUBJ/
H
}
/^$/{
x
s/^FROM([^}]*)\n^SUBJ([^}]*)/\1\2/
s/^SUBJ([^}]*)\n^FROM([^}]*)/\2\1/
s/^FROM([^}]*)/\1/
s/\n//
p
d
h
}
}' $mbox
|