- bugfix: "From" escaping regexp was not global

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;