-Mangling of: Message-ID / X-LaceMail-sendmail-Message-ID

 - it is hard/impossible to tune it compliable with proper mail follow-ups

diff --git a/perlmail-sendmail b/perlmail-sendmail
index b6b1b07..c06a051 100755 (executable)
--- a/perlmail-sendmail
+++ b/perlmail-sendmail
@@ -264,13 +264,6 @@ my @rcpts=(!@addr ? (undef()) : values(%{{ map({
                (!defined $obj ? () : (lc($obj->address())=>$obj));
                } @addr) }}));
 
                (!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>;
 my $stdin_body=(@rcpts<=1 ? undef() : do {     # store input data only if it will be used multiple times
                local $/=undef();
                <STDIN>;