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..3b80fd1 100755 --- a/mbox-extract-patch +++ b/mbox-extract-patch @@ -178,6 +178,8 @@ package Mail::Message { } } + $lines[$i - 1] =~ /^$/ or unshift @new_ts, "\n"; + splice @lines, $i, 0, @new_ts; my $body = Mail::Message::Body->new( charset => "PERL", |