summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2020-06-01 10:11:21 -0700
committerSean Whitton <spwhitton@spwhitton.name>2020-06-01 10:11:21 -0700
commit9df79d8f0565f0e28d588e2da1c40bc0910b5e70 (patch)
tree7d01a32b2a1f46b764032cd30b361cf48e729f4a
parentc770a0427dfd725c1227cde021b0d6fa9c795300 (diff)
downloadmailscripts-9df79d8f0565f0e28d588e2da1c40bc0910b5e70.tar.gz
don't try to insert a blank line if trailers are at top of message
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rwxr-xr-xmbox-extract-patch2
1 files changed, 1 insertions, 1 deletions
diff --git a/mbox-extract-patch b/mbox-extract-patch
index 3b80fd1..31e6ceb 100755
--- a/mbox-extract-patch
+++ b/mbox-extract-patch
@@ -178,7 +178,7 @@ package Mail::Message {
}
}
- $lines[$i - 1] =~ /^$/ or unshift @new_ts, "\n";
+ $i == 0 or $lines[$i - 1] =~ /^$/ or unshift @new_ts, "\n";
splice @lines, $i, 0, @new_ts;
my $body = Mail::Message::Body->new(