From 07a563493bced6eec13276d8571872b65ab893b3 Mon Sep 17 00:00:00 2001 From: unknown Date: Wed, 17 Mar 2010 10:27:46 -0500 Subject: [PATCH] Import version as of 2010-03-17 for upload-ftp-v1.1.pl --- upload-ftp-v1.1.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl index aaaebcd..0b59d18 100755 --- a/upload-ftp-v1.1.pl +++ b/upload-ftp-v1.1.pl @@ -1149,6 +1149,8 @@ sub mail { $smtp->datasend ("To: " . join (", ", @email_list) . "\n"); $smtp->datasend ("From: $sender\n"); $smtp->datasend ("Reply-To: ftp-upload\@gnu.org\n"); + my $mid = Email::MessageID->new; + $smtp->datasend("Message-ID: $mid\n"); if ($subject ne '') { $smtp->datasend ("Subject: [gnu-ftp-upload] $subject"); ftp_syslog('info', "($log_style) Subject: '$subject'"); @@ -1160,8 +1162,6 @@ sub mail { ftp_syslog('warning', "($log_style) Error uploading package: $msg"); ftp_syslog('info', "($log_style) Subject: generic failure"); } - my $mid = Email::MessageID->new; - $smtp->datasend("Message-ID: $mid"); $smtp->datasend ("\n\n"); ftp_syslog('info', "($log_style) Body: $msg"); -- 2.25.1