From a00a8e5e4a9ac6ca9a603c799982bcd46137c3de Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 24 Oct 2021 02:59:08 +0530
Subject: email: Handle Received header with two tokens but no timestamp.

* email/email.scm (parse-email-headers): Match Received header with
timestamp more precisely.
* tests/email.scm ("Parse Received header with two tokens but no
timestamp"): No test.
---
 email/email.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'email')

diff --git a/email/email.scm b/email/email.scm
index 7aea2d3..71f0718 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -1043,7 +1043,7 @@ list of header keys and values."
    (peg:tree
     (match-pattern fields headers))
    `((received . ,(match-lambda*
-                    (`(received ,tokens ,timestamp)
+                    (('received tokens (? date? timestamp))
                      (list 'received (string-join tokens) timestamp))
                     (('received tokens ...)
                      (list 'received (string-join tokens)))))
-- 
cgit v1.2.3