- bugfix: "From" escaping regexp was not global

git-svn-id: https://siedziba.pl:790/svn/repos/dbxrecover@271 455248ca-bdda-0310-9134-f4ebb693071a

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;