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

[PerlMail.git] / perlmail-accept

diff --git a/perlmail-accept b/perlmail-accept
index c647a8e..dad2bd3 100755 (executable)
--- 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;