From 36474696eaa6187e7077f73d02daeb0138e03124 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 26 Jul 2019 01:09:02 +0530
Subject: email: Match mime-entity-fields only against headers.

* email/email.scm (parse-mime-entity): Match mime-entity-fields only
against the headers, not the whole email.
---
 email/email.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/email/email.scm b/email/email.scm
index aab6a21..7e613ff 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -747,7 +747,7 @@ message. Else, return a single <mime-entity> record."
     (let ((headers
            (pre-post-order
             (peg:tree
-             (match-pattern mime-entity-fields text))
+             (match-pattern mime-entity-fields headers))
             `((content . ,post-process-content-type)
               (encoding . ,post-process-content-transfer-encoding)
               (disposition . ,post-process-content-disposition)
-- 
cgit v1.2.3