From a3fe3740b12e9b8510c3243f5eb66818926d67c7 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 28 Jul 2019 12:16:06 +0530
Subject: 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.
---
 email/email.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'email')

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))))))))
 
-- 
cgit v1.2.3