Bug 455845: Emails have no header to indicate that they are auto-generated, and so...

diff --git a/Bugzilla/Mailer.pm b/Bugzilla/Mailer.pm
index c790d179fd2e2805a0a71130a04d5c321947ebf1..2fbdbae7a9ec190176ca9e3c50829356266bec68 100644 (file)
--- a/Bugzilla/Mailer.pm
+++ b/Bugzilla/Mailer.pm
@@ -57,6 +57,11 @@ sub MessageToMTA {
     return if $method eq 'None';
 
     my $email = ref($msg) ? $msg : Email::MIME->new($msg);
+
+    # We add this header to mark the mail as "auto-generated" and
+    # thus to hopefully avoid auto replies.
+    $email->header_set('Auto-Submitted', 'auto-generated');
+
     $email->walk_parts(sub {
         my ($part) = @_;
         return if $part->parts > 1; # Top-level