diff options
| -rw-r--r-- | email/email.scm | 3 |
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)))))))) |