commit - 6115e971d4f4bb842f727c47301269b406666364
commit + 04187ec12a00a67f5de0e0391f18eba3244d0876
blob - 1969819a3b6e71c60782ffa787def82ba9fc4fd7
blob + 2bae5b33783bc75d8477e2effe7995b4f1bbf6b7
--- mailread.pl
+++ mailread.pl
use IPC::Run3;
my ($headers, $body) = do { local $/; <> } =~ /(^(.*?\n)\n(.*)$)/s ? ($2, $3) : ('', $1);
+run3(['addrcache'], \$headers, undef, undef);
+
my $ishtml = qr/< *(?:html|head|body|div|table|p|span|br) *\/?>/i;
run3(['lynx', '-dump', '-force_html', '-stdin'], \$body, \$body, undef) if ($body =~ $ishtml);