X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-sendmail;h=c06a05124200b4bd0f84a175274205e3166d85e1;hp=900ddede1cb714560ec5df440fba95d25a90d8ce;hb=eafa2867cd90945b429ab07e3d844377a580ce97;hpb=cc75dffdfe36f7a253c4cfe0555c09fca28d360a

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 900dded..c06a051 100755
--- 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