summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--utils.lisp10
1 files changed, 9 insertions, 1 deletions
diff --git a/utils.lisp b/utils.lisp
index 413d14a..a576a12 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -278,7 +278,15 @@ ELEMENT-TYPE as the stream's."
(let ((printable-chars
- ;; This list is incomplete, but that doesn't hurt.
+ ;; This list is incomplete, which shouldn't hurt.
+ ;;
+ ;; Note that the list is designed to be compatible with both the
+ ;; Quoted-Printable and Q encodings. Even though
+ ;; Quoted-Printable itself specifies #\_, #\?, #\= and #\Space as
+ ;; representing themselves, they may not be left unencoded here
+ ;; because of this. On the other hand, #\_ cannot be assumed to
+ ;; encode #\Space, either, because this is only specified by Q,
+ ;; not by Quoted-Printable.
(cons #\Newline
(coerce "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,.-!~"
'list))))