summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
Diffstat (limited to 'email')
-rw-r--r--email/email.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/email/email.scm b/email/email.scm
index 7dc882c..fdba01f 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -654,9 +654,10 @@ values. The returned headers is a string and body is a bytevector."
(value ,value))
(cons (string->lcase-symbol attribute) value)))
(flatten-and-filter '(parameter) parameters))))
+ ;; RFC6657 specifies UTF-8 as the default charset
+ ;; for text/* media types.
(if (and (eq? type 'text)
(not (assoc-ref parameters 'charset)))
- ;; UTF-8 is specified as the default charset in RFC6657
(acons 'charset "utf-8" parameters)
parameters))))))))