From 2ce5dc7d37a6437476d43a1d7b9f2b326ef71610 Mon Sep 17 00:00:00 2001 From: pp 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 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'dbxrecover-1p') 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; -- cgit v1.2.3