diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-06-01 10:11:21 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-06-01 10:11:21 -0700 |
commit | 9df79d8f0565f0e28d588e2da1c40bc0910b5e70 (patch) | |
tree | 7d01a32b2a1f46b764032cd30b361cf48e729f4a | |
parent | c770a0427dfd725c1227cde021b0d6fa9c795300 (diff) | |
download | mailscripts-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-x | mbox-extract-patch | 2 |
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( |