summary refs log tree commit diff
path: root/email
diff options
context:
space:
mode:
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 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