aboutsummaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2019-07-28 12:16:06 +0530
committerArun Isaac2019-07-28 12:16:06 +0530
commita3fe3740b12e9b8510c3243f5eb66818926d67c7 (patch)
tree72afa9fe35c898946e8960cb62b4e6346985f37c /email
parent1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48 (diff)
downloadguile-email-a3fe3740b12e9b8510c3243f5eb66818926d67c7.tar.gz
guile-email-a3fe3740b12e9b8510c3243f5eb66818926d67c7.tar.lz
guile-email-a3fe3740b12e9b8510c3243f5eb66818926d67c7.zip
email: Improve comment about default charset.
* email/email.scm (post-process-content-type): Mention that RFC6657 specifies UTF-8 as the default charset only for text/* media types.
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))))))))