# convertEnronEmail
#!/usr/bin/perl -0p
s/^M//gsm;
($date) = /^(Date: [^\n]+)/sm;
($from) = /^From:\s*([^\n]+)/sm;
print "From $from @{[scalar localtime]}\n";
s/\Z/\n/;
#enronEmailsForKeyword
#! /bin/sh
mdfind "kMDItemTextContent == '${1+"$@"}'" | grep /enron/
#enronGrep
#! /bin/sh
enronEmailsForKeyword ${1+"$@"} | xargs grep ${1+"$@"}
#enronMailBoxForKeyword
#! /bin/sh
enronEmailsForKeyword ${1+"$@"} | xargs -n+1 convertEnronEmail
#enronThreadForKeyword
#! /bin/sh
enronEmailsForKeyword ${1+"$@"} | xargs cat