From: Eric Wong <e@80x24.org>
Date: Sun, 23 Aug 2015 00:02:35 +0000 (+0000)
Subject: mbox: use mboxrd quoting rules
X-Git-Tag: v1.0.0~998
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=76ce9fbacfd29e19b47aeba786daca20b2b01117;p=public-inbox.git

mbox: use mboxrd quoting rules

This redundantly quotes >From from to prevent losing information
as described by qmail
---

diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm
index bc4d639e..332e89a7 100644
--- a/lib/PublicInbox/Mbox.pm
+++ b/lib/PublicInbox/Mbox.pm
@@ -42,7 +42,11 @@ sub emit_msg {
 
 	$buf = $simple->body;
 	$simple->body_set('');
-	$buf =~ s/^(From )/>$1/gm;
+
+	# mboxrd quoting style
+	# ref: http://www.qmail.org/man/man5/mbox.html
+	$buf =~ s/^(>*From )/>$1/gm;
+
 	$buf .= "\n" unless $buf =~ /\n\z/s;
 
 	$fh->write($buf);