diff options
Diffstat (limited to 'mbox-extract-patch')
| -rwxr-xr-x | mbox-extract-patch | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/mbox-extract-patch b/mbox-extract-patch index 276895b..31e6ceb 100755 --- a/mbox-extract-patch +++ b/mbox-extract-patch @@ -178,6 +178,8 @@ package Mail::Message { } } + $i == 0 or $lines[$i - 1] =~ /^$/ or unshift @new_ts, "\n"; + splice @lines, $i, 0, @new_ts; my $body = Mail::Message::Body->new( charset => "PERL", |