git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
+=gnomevfs
[PerlMail.git]
/
perlmail-sendmail
diff --git
a/perlmail-sendmail
b/perlmail-sendmail
index
900dded
..
c06a051
100755
(executable)
--- 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);
# 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
# options leave in @ARGV, addresses to @addr:
my @args=@ARGV; # temporary
@ARGV=(); # options