summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2020-12-05 20:05:56 +0530
committerArun Isaac2020-12-05 20:05:56 +0530
commit19d2b58465aa09c6ff0766b0accc2a94cc425415 (patch)
tree4be95de41afe0042478999bc06abf864f3498287 /email
parent1f042830391494f4ad48036359d2788bf0527dba (diff)
downloadguile-email-19d2b58465aa09c6ff0766b0accc2a94cc425415.tar.gz
guile-email-19d2b58465aa09c6ff0766b0accc2a94cc425415.tar.lz
guile-email-19d2b58465aa09c6ff0766b0accc2a94cc425415.zip
email: Support obsolete Received header.
* email/email.scm (received): Include obsolete pattern. (parse-mime-entity): Post process obsolete received forms.
Diffstat (limited to 'email')
-rw-r--r--email/email.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/email/email.scm b/email/email.scm
index 398ddb3..e624a98 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -545,7 +545,8 @@
(or angle-addr addr-spec domain word))
(define-field-pattern received "Received"
- (and (* received-token) (ignore ";") date-time))
+ (and (* received-token) (ignore ";") date-time)
+ (* received-token))
(define-peg-pattern path body
(or angle-addr (and (? cfws) (ignore "<") (? cfws) (ignore ">") (? cfws))))
@@ -1005,7 +1006,9 @@ list of header keys and values."
(match-pattern fields headers))
`((received . ,(match-lambda*
(`(received ,tokens ,timestamp)
- (list 'received (string-join tokens) timestamp))))
+ (list 'received (string-join tokens) timestamp))
+ (('received tokens ...)
+ (list 'received (string-join tokens)))))
(received-token . ,(match-lambda*
(`(received-token ,token) token)))
(date-time . ,(lambda node