diff options
| author | Arun Isaac | 2019-07-26 01:09:02 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-07-26 01:09:02 +0530 |
| commit | 36474696eaa6187e7077f73d02daeb0138e03124 (patch) | |
| tree | 14af3cee47dfaa65a17398f19a23f651d54cfa01 | |
| parent | 8cc644f388e5751335f8467ba4650c93d60b5d98 (diff) | |
| download | guile-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.
| -rw-r--r-- | email/email.scm | 2 |
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) |