From: unknown <sysadmin@gnu.org>
Date: Wed, 17 Mar 2010 15:27:46 +0000 (-0500)
Subject: Import version as of 2010-03-17 for upload-ftp-v1.1.pl
X-Git-Tag: 20200730__import~31
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=07a563493bced6eec13276d8571872b65ab893b3;p=gatekeeper.git

Import version as of 2010-03-17 for upload-ftp-v1.1.pl
---

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");