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.

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/email.scm b/tests/email.scm
index f283e71..a6d2b46 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -547,6 +547,17 @@ Content-Type: text/plain; charset=utf-8
                   (charset . "utf-8"))
     (content-transfer-encoding . 7bit)))
 
+;; TODO: Fix this test once previous test is addressed.
+(test-alist= "Parse Received header with two tokens but no timestamp"
+  (parse-email-headers
+   "Received: from foo
+")
+  `((trace received "from foo")
+    (content-type (type . text)
+                  (subtype . plain)
+                  (charset . "utf-8"))
+    (content-transfer-encoding . 7bit)))
+
 
 ;;;
 ;;; Email addresses