From 724ff3551ed830457bca6e714853e6a8e0bd55b2 Mon Sep 17 00:00:00 2001
From: unknown <sysadmin@gnu.org>
Date: Thu, 11 Mar 2010 08:48:51 -0600
Subject: [PATCH] Import version as of 2010-03-11 for upload-ftp-v1.1.pl

---
 upload-ftp-v1.1.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/upload-ftp-v1.1.pl b/upload-ftp-v1.1.pl
index 4bdca33..aaaebcd 100755
--- a/upload-ftp-v1.1.pl
+++ b/upload-ftp-v1.1.pl
@@ -95,6 +95,7 @@ use Date::Manip;
 use Sys::Syslog qw(:DEFAULT setlogsock);
 use Getopt::Long;
 use Text::Wrap;
+use Email::MessageID;
 umask (022);
 
 $ENV{"LC_ALL"} = "C";  # do not think about multibyte characters
@@ -1159,6 +1160,8 @@ 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