From: short <>
Date: Sun, 15 Feb 2004 18:36:53 +0000 (+0000)
Subject: Fix (workaround) storing of /^From /m messages to UNIX mbox files.
X-Git-Tag: bp_lace~24
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=3c73b7403e13e8b970a4402a2ae8cee9cd9f486d

Fix (workaround) storing of /^From /m messages to UNIX mbox files.
---

diff --git a/perlmail-accept b/perlmail-accept
index c647a8e..dad2bd3 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -465,6 +465,7 @@ my($message)=@_;
 
 	local $_=$_;
 	my $save_=$_;
+	$message=~s/(\n)(From )/$1>$2/sg;
 	local $Message=$message;
 	# Cannot call 'local' for our-imported variable:
 	my $Audit_save=$Audit;