X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-accept;h=dad2bd38bf1f47238d6d20a5507eba66ffe99873;hp=c647a8e45d798988b72b6bf2ff08a9361d044e01;hb=3c73b7403e13e8b970a4402a2ae8cee9cd9f486d;hpb=0cf7011ee6c09dfede5c8e55f5f3f795ed8abab4

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;