mda: keep Status: header when doing injection

Non-public-inbox users may want to archive their personal email
with ssoma, so preserve the Status: line if it exists.  public-inbox
already kills the Status: header.

diff --git a/lib/Ssoma/MDA.pm b/lib/Ssoma/MDA.pm
index 3fe7e0ba22af78c5fa5d2fdca255d0a4803a02ef..02816a5dd6da1f5f04d72b8c9233e835d795ef9f 100644 (file)
--- a/lib/Ssoma/MDA.pm
+++ b/lib/Ssoma/MDA.pm
@@ -122,7 +122,7 @@ sub deliver {
        my $path = $git->mid2path($mid);
 
        # kill potentially confusing/misleading headers
-       foreach my $d (qw(status lines content-length)) {
+       foreach my $d (qw(lines content-length)) {
                $simple->header_set($d);
        }
 

diff --git a/t/mda-badheaders.t b/t/mda-badheaders.t
index c36303530f1ed8084c4c6e1291878d75394c1ecf..b161574fa08e1ad50eefa8594cd28686114b15a5 100644 (file)
--- a/t/mda-badheaders.t
+++ b/t/mda-badheaders.t
@@ -21,12 +21,11 @@ my %headers = (
        "From" => "You <you\@example.com>",
        "Message-ID" => "<666\@example.com>",
        "Subject" => ":o",
-       "Status" => "RO",
        "Lines" => "666",
        "Content-Length" => "666",
 );
 
-my %discard = map { $_ => 1 } qw(Status Lines Content-Length);
+my %discard = map { $_ => 1 } qw(Lines Content-Length);
 
 while (my ($key, $val) = each %headers) {
        $email->header_set($key, $val);