diff options
Diffstat (limited to 'mbox-extract-patch')
-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( |