summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--email/email.scm2
-rw-r--r--tests/email.scm3
2 files changed, 2 insertions, 3 deletions
diff --git a/email/email.scm b/email/email.scm
index 43f9a72..7cef7e7 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -680,7 +680,7 @@ values. The returned headers is a string and body is a bytevector."
;; charset. Should we check for the validity of the
;; entire Content-Type header? If so, how?
(not (valid-charset? (assoc-ref parameters 'charset)))))
- (acons 'charset "utf-8" parameters))
+ (alist-combine parameters (acons* 'charset "utf-8")))
(else parameters))))))))
(define post-process-content-disposition
diff --git a/tests/email.scm b/tests/email.scm
index fb7e618..c82f567 100644
--- a/tests/email.scm
+++ b/tests/email.scm
@@ -351,8 +351,7 @@ body" "iso-8859-1"))
`((content-transfer-encoding . 7bit)
(content-type (type . text)
(subtype . plain)
- (charset . "utf-8")
- (charset . "foo"))))
+ (charset . "utf-8"))))
(test-email= "tolerate decoding errors in body"
(parse-email