diff options
author | Arun Isaac | 2020-12-05 19:33:52 +0530 |
---|---|---|
committer | Arun Isaac | 2020-12-05 19:33:52 +0530 |
commit | 1f042830391494f4ad48036359d2788bf0527dba (patch) | |
tree | 2da68f9b46fdbba5744dc4b99985c96aa693a45e /tests | |
parent | e65b6bacc2adc0c72711ed3b39e533cb6186f3b1 (diff) | |
download | guile-email-1f042830391494f4ad48036359d2788bf0527dba.tar.gz guile-email-1f042830391494f4ad48036359d2788bf0527dba.tar.lz guile-email-1f042830391494f4ad48036359d2788bf0527dba.zip |
email: Do not capture cfws in atoms and dot-atoms.
* email/email.scm (define-atom-pattern): Do not capture cfws unless
specified.
(atom): Do not specify cfws.
(define-dot-atom-pattern): Do not capture cfws.
(define-word-pattern): New macro.
(cfws-captured-atom, cfws-captured-word): New patterns.
(obs-phrase): Use cfws-captured-word.
(received-token): Capture all.
(parse-mime-entity): Post process received and received-token.
* tests/email.scm ("parse email headers"): Fix test.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/email.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/email.scm b/tests/email.scm index d3801a9..766c402 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -110,11 +110,11 @@ X-MSMail-Priority: Normal X-mailer: FooMail 4.0 4.03 (SMT460B92F) Content-Length: 4349 ") - `((trace (received " by foo.bar.com id ZZZ55555" + `((trace (received "by foo.bar.com id ZZZ55555" ,(make-date 0 4 38 16 31 5 2001 -36000)) - (received " from ooo.ooo.com \tby foo.bar.com with ESMTP id ZZZ55555\tfor <yoo@bar.com>" + (received "from ooo.ooo.com by foo.bar.com with ESMTP id ZZZ55555 for <yoo@bar.com>" ,(make-date 0 2 38 16 31 5 2001 -36000)) - (received " from zzz by ooo.ooo.com with Maccrosoft SMTPSVC" + (received "from zzz by ooo.ooo.com with Maccrosoft SMTPSVC" ,(make-date 0 16 33 22 31 5 2001 -14400))) (message-id . "beefbeefbeefbeef@ooo.ooo.com") (subject . "Bogus Tester") |