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 aaaebcdd265c13d6bfbaea3c55892a013627814c..0b59d18f0debd9702295ca779c0ebb884b538b4b 100755 (executable)
--- 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");