Bug 584018: @foo= bar in email_in.pl is not parsed correctly, due to a missing…

email_in.pl

@@ -106,7 +106,7 @@ sub parse_mail {
             # Otherwise, we stop parsing fields on the first blank line.
             $line = trim($line);
             last if !$line;
-            if ($line =~ /^\@(\S+)\s*(?:=|\s|$)\s*(.*)\s*/) {
+            if ($line =~ /^\@(\w+)\s*(?:=|\s|$)\s*(.*)\s*/) {
                 $current_field = lc($1);
                 $fields{$current_field} = $2;
             }