aboutsummaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2019-07-26 01:09:02 +0530
committerArun Isaac2019-07-26 01:09:02 +0530
commit36474696eaa6187e7077f73d02daeb0138e03124 (patch)
tree14af3cee47dfaa65a17398f19a23f651d54cfa01 /email
parent8cc644f388e5751335f8467ba4650c93d60b5d98 (diff)
downloadguile-email-36474696eaa6187e7077f73d02daeb0138e03124.tar.gz
guile-email-36474696eaa6187e7077f73d02daeb0138e03124.tar.lz
guile-email-36474696eaa6187e7077f73d02daeb0138e03124.zip
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.
Diffstat (limited to 'email')
-rw-r--r--email/email.scm2
1 files changed, 1 insertions, 1 deletions
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)