From 6d6388726f6485433630527fdc5bd3a525d9a517 Mon Sep 17 00:00:00 2001
From: short <>
Date: Fri, 25 Oct 2002 17:20:46 +0000
Subject: [PATCH] -Mangling of: Message-ID / X-LaceMail-sendmail-Message-ID  -
 it is hard/impossible to tune it compliable with proper mail follow-ups

---
 perlmail-sendmail | 7 -------
 1 file changed, 7 deletions(-)

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>;
-- 
1.8.3.1