#!/bin/bash
#  stripping empty lines during mbox reads brakes the DKIM signature.

MBOX=./mbox
NEW=mbox.new

perl -MMail::DKIM::Verifier -E '
	$dkim = Mail::DKIM::Verifier->new;
	while(<>) { chomp; $dkim->PRINT("$_\cM\cJ")}
    $dkim->CLOSE;
	say $dkim->result' $MBOX
# --> pass

perl -MMail::Box::Mbox -E "
	my \$folder = Mail::Box::Mbox->new(folder=> '$MBOX');
	my \$msg = \$folder->message(0);
	Mail::Message->coerce(\$msg)->print" #
exit 0
 >$NEW

diff -c $MBOX $NEW

perl -MMail::DKIM::Verifier -E '
	$dkim = Mail::DKIM::Verifier->new;
	while(<>) { chomp; $dkim->PRINT("$_\cM\cJ") }
	$dkim->CLOSE;
	say $dkim->result' $NEW
# --> fail

