+=ats

[PerlMail.git] / perlmail-sendmail

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 900dded..c06a051 100755 (executable)
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -199,11 +199,6 @@ if (0
 #   for $opt_F is implemented by Mail::Address in our &FromAddress
 
 my $head=MIME::Head->new(\*STDIN);
-# We may (=will) change the contents and send it multiple times
-if (defined(my $msgid=$head->get("Message-ID"))) {
-       $head->delete("Message-ID");
-       $head->replace("X-LaceMail-sendmail-Message-ID",$msgid);
-       }
 # options leave in @ARGV, addresses to @addr:
 my @args=@ARGV;        # temporary
 @ARGV=();      # options