This is stricter than the mutt quote_regexp default
("^([ \t]*[|>:}#])+" on Debian jessie),
but matches what we have in View.pm.
I prefer the stricter quote detection since it is less ambiguous
and less likely to hide/obscure important details.
$part->body_set('');
my @lines = split(/\n/, $body);
while (defined(my $l = shift @lines)) {
$part->body_set('');
my @lines = split(/\n/, $body);
while (defined(my $l = shift @lines)) {
push @quot, $l;
} else {
push @orig, $l;
push @quot, $l;
} else {
push @orig, $l;