summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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(