[Feature] Unescape and unquote smtp addresses

2 files changed, 5 insertions, 1 deletions

diff --git a/src/ragel/smtp_addr_parser.rl b/src/ragel/smtp_addr_parser.rl
index 64e1ae4fb..55b8eefb0 100644
--- a/src/ragel/smtp_addr_parser.rl
+++ b/src/ragel/smtp_addr_parser.rl
@@ -33,6 +33,10 @@
     }
   }
 
+  action User_has_backslash {
+    addr->flags |= RSPAMD_EMAIL_ADDR_HAS_BACKSLASH;
+  }
+
   action Quoted_addr {
     addr->flags |= RSPAMD_EMAIL_ADDR_QUOTED;
   }
diff --git a/src/ragel/smtp_address.rl b/src/ragel/smtp_address.rl
index 3c2a86ee6..fddafe59d 100644
--- a/src/ragel/smtp_address.rl
+++ b/src/ragel/smtp_address.rl
@@ -24,7 +24,7 @@
   Atom           = atext+;
   Dot_string     = Atom ("."  Atom)*;
 
-  QcontentSMTP   = qtextSMTP | quoted_pairSMTP;
+  QcontentSMTP   = qtextSMTP | quoted_pairSMTP %User_has_backslash;
   Quoted_string  = ( DQUOTE QcontentSMTP* >User_start %User_end DQUOTE ) %Quoted_addr;
   Local_part     = Dot_string >User_start %User_end | Quoted_string;
   String         = Atom | Quoted_string;