- bugfix: "From" escaping regexp was not global

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

1 files changed, 1 insertions, 1 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;