allow users to remove the MIME-Version header.

rjbs · Jul 6, 2012 · 4608623 · 4608623
1 parent ff45464
commit 4608623
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MIME/Lite.pm b/lib/MIME/Lite.pm
@@ -1154,12 +1154,12 @@ sub top_level {
     my ( $self, $onoff ) = @_;
     my $attrs = $self->{Attrs};
     if ($onoff) {
-        $attrs->{'MIME-Version'} = '1.0';
+        $attrs->{'mime-version'} = '1.0';
         my $uses = ( @Uses ? ( "(" . join( "; ", @Uses ) . ")" ) : '' );
         $self->replace( 'X-Mailer' => "MIME::Lite $VERSION $uses" )
           unless $VANILLA;
     } else {
-        delete $attrs->{'MIME-Version'};
+        delete $attrs->{'mime-version'};
         $self->delete('X-Mailer');
     }
 }