diff options
| -rwxr-xr-x | dbxrecover-1p | 2 | ||||
| -rwxr-xr-x | dbxrecover-2p | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/dbxrecover-1p b/dbxrecover-1p index bd40cd2..d057a8e 100755 --- a/dbxrecover-1p +++ b/dbxrecover-1p @@ -285,7 +285,7 @@ use warnings; my $message = shift; if (defined($message)) { - $message =~ s/^>*From />$&/m; # mbox "From " escaping + $message =~ s/^>*From />$&/mg; # mbox "From " escaping # we don't have the original envelope address, so just output a fake one print "From unknown\@unknown.invalid Mon Jan 1 00:00:00 1970\r\n"; print $message; diff --git a/dbxrecover-2p b/dbxrecover-2p index 6d2f71c..fb00700 100755 --- a/dbxrecover-2p +++ b/dbxrecover-2p @@ -318,7 +318,7 @@ use warnings; for(@{$chains}) { my $message = $_->data; - $message =~ s/^>*From />$&/m; # mbox "From " escaping + $message =~ s/^>*From />$&/mg; # mbox "From " escaping # we don't have the original envelope address, so just output a fake one print "From unknown\@unknown.invalid Mon Jan 1 00:00:00 1970\r\n"; print $message; |