From c770a0427dfd725c1227cde021b0d6fa9c795300 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 1 Jun 2020 08:17:37 -0700
Subject: mbox-extract-patch: ensure a blank line before block of trailers

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 mbox-extract-patch | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'mbox-extract-patch')

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",
-- 
cgit v1.2.3