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

diff --git a/perlmail-sendmail b/perlmail-sendmail
index b6b1b07..c06a051 100755
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -264,13 +264,6 @@ my @rcpts=(!@addr ? (undef()) : values(%{{ map({
 		(!defined $obj ? () : (lc($obj->address())=>$obj));
 		} @addr) }}));
 
-# We may (=will) change the contents and send it multiple times
-# prevent wasteful Message-ID regeneration if it is just for one rcpt
-if (@rcpts>1 && defined(my $msgid=$head->get("Message-ID"))) {
-	$head->delete("Message-ID");
-	$head->replace("X-LaceMail-sendmail-Message-ID",$msgid);
-	}
-
 my $stdin_body=(@rcpts<=1 ? undef() : do {	# store input data only if it will be used multiple times
 		local $/=undef();
 		<STDIN>;