From 2ce5dc7d37a6437476d43a1d7b9f2b326ef71610 Mon Sep 17 00:00:00 2001
From: pp <pp@455248ca-bdda-0310-9134-f4ebb693071a>
Date: Thu, 8 Feb 2007 04:08:56 +0000
Subject: - bugfix: "From" escaping regexp was not global

git-svn-id: https://siedziba.pl:790/svn/repos/dbxrecover@271 455248ca-bdda-0310-9134-f4ebb693071a
---
 dbxrecover-1p | 2 +-
 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;
-- 
cgit v1.2.3