Commit 25741a800f0ed9e1e58fa5bd39ba4629e9eba69d

Authored by David RENÉ
1 parent 6dc16ef7

add support of + 'add sign' into email address

Showing 1 changed file with 4 additions and 0 deletions   Show diff stats
mail/lexers/fqa.anubis
... ... @@ -189,6 +189,7 @@ public define (LM_LexerState_FQA,LM_TokenOrError_FQA)
189 189 then email_tester_state_3(clear_abol(ls)) else
190 190 if lm_next_char(ls) is (_ls,c) then
191 191 if c = -1 then email_tester_state_1(_ls) else
  192 + if c = 43 then email_tester_state_4(_ls) else
192 193 if c = 45 then email_tester_state_4(_ls) else
193 194 if (48 +=< c & c +=< 57) then email_tester_state_4(_ls) else
194 195 if (65 +=< c & c +=< 90) then email_tester_state_4(_ls) else
... ... @@ -232,6 +233,7 @@ define (LM_LexerState_FQA,LM_TokenOrError_FQA)
232 233 LM_LexerState_FQA ls,
233 234 ) =
234 235 if lm_next_char(ls) is (_ls,c) then
  236 + if c = 43 then email_tester_state_4(_ls) else
235 237 if c = 45 then email_tester_state_4(_ls) else
236 238 if c = 46 then email_tester_state_5(_ls) else
237 239 if (48 +=< c & c +=< 57) then email_tester_state_4(_ls) else
... ... @@ -248,6 +250,7 @@ define (LM_LexerState_FQA,LM_TokenOrError_FQA)
248 250 LM_LexerState_FQA ls,
249 251 ) =
250 252 if lm_next_char(ls) is (_ls,c) then
  253 + if c = 43 then email_tester_state_6(_ls) else
251 254 if c = 45 then email_tester_state_6(_ls) else
252 255 if (48 +=< c & c +=< 57) then email_tester_state_6(_ls) else
253 256 if (65 +=< c & c +=< 90) then email_tester_state_6(_ls) else
... ... @@ -262,6 +265,7 @@ define (LM_LexerState_FQA,LM_TokenOrError_FQA)
262 265 LM_LexerState_FQA ls,
263 266 ) =
264 267 if lm_next_char(ls) is (_ls,c) then
  268 + if c = 43 then email_tester_state_6(_ls) else
265 269 if c = 45 then email_tester_state_6(_ls) else
266 270 if c = 46 then email_tester_state_5(_ls) else
267 271 if (48 +=< c & c +=< 57) then email_tester_state_6(_ls) else
... ...