From: short <>
Date: Fri, 25 Oct 2002 17:19:36 +0000 (+0000)
Subject: prevent wasteful Message-ID regeneration if it is just for one rcpt
X-Git-Tag: bp_lace~76
X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=900add68079f0eaf9e7575e7ee16ca266ef3e9eb;hp=0bbe2cd392f227450f9096b267db413744e3a0af

prevent wasteful Message-ID regeneration if it is just for one rcpt
---

diff --git a/perlmail-sendmail b/perlmail-sendmail
index 900dded..b6b1b07 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
@@ -269,6 +264,13 @@ 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>;