aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2020-12-05 19:33:52 +0530
committerArun Isaac2020-12-05 19:33:52 +0530
commit1f042830391494f4ad48036359d2788bf0527dba (patch)
tree2da68f9b46fdbba5744dc4b99985c96aa693a45e /tests
parente65b6bacc2adc0c72711ed3b39e533cb6186f3b1 (diff)
downloadguile-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.scm6
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")