Regularize mail sent by debug as compared to mail sent by mail

diff --git a/gatekeeper.pl b/gatekeeper.pl
index c4ce02f7b2479688b1fc87fa5bce63493050cd74..4590c3c6e21af48bd0d5e47374d17d281c1c384a 100755 (executable)
--- a/gatekeeper.pl
+++ b/gatekeeper.pl
@@ -1141,7 +1141,7 @@ sub mail {
            ['Reply-To' => 'ftp-upload@gnu.org'],
            ['Message-ID'=> Email::MessageID->new->in_brackets],
           ],
-          wrap('','',$msg) . "\n");
+          wrap('','',$msg));
 }
 
 sub debug {
@@ -1152,9 +1152,11 @@ sub debug {
           [$maintainer_email],
           [[To         => $maintainer_email],
            [From       => 'ftp-upload-script@gnu.org'],
+           [Date       => strftime("%a, %e %b %Y %H:%M:%S %z", localtime)],
            [Subject    => ("[$m_style gnu-ftp-debug] "
                            ."new upload processed: $package_name")],
            ['Reply-To' => 'ftp-upload@gnu.org'],
+           ['Message-ID'=> Email::MessageID->new->in_brackets],
           ],
           $msg);
 }