diff options
| author | Arun Isaac | 2019-07-28 12:16:06 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-07-28 12:16:06 +0530 |
| commit | a3fe3740b12e9b8510c3243f5eb66818926d67c7 (patch) | |
| tree | 72afa9fe35c898946e8960cb62b4e6346985f37c | |
| parent | 1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48 (diff) | |
| download | guile-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.
| -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)))))))) |