Bug 662883: email_in.pl should ignore "out of the office" auto-reply emails

r/a=mkanat

diff --git a/email_in.pl b/email_in.pl
index 393061cd556a1bca1faf02712916a06c9e6d5df6..55e7b119af19c9573edcd88988f7c4091fdf4fed 100755 (executable)
--- a/email_in.pl
+++ b/email_in.pl
@@ -86,6 +86,14 @@ sub parse_mail {
         $summary = trim($2);
     }
 
+    # Ignore automatic replies.
+    # XXX - Improve the way to detect such subjects in different languages.
+    my $auto_submitted = $input_email->header('Auto-Submitted') || '';
+    if ($summary =~ /out of( the)? office/i || $auto_submitted eq 'auto-replied') {
+        debug_print("Automatic reply detected: $summary");
+        exit;
+    }
+
     my ($body, $attachments) = get_body_and_attachments($input_email);
     if (@$attachments) {
         $fields{'attachments'} = $attachments;