Convert subject to list.

src/util-mail.scm

@@ -35,14 +35,16 @@
  (import scheme
 	 (chicken base)
 	 (chicken keyword)
-	 util-io)
+	 util-io
+	 util-string)
 
  ;; All emails go to this override
  (define *mailto-override* (make-parameter "dominik.pantucek@trustica.cz"))
 
  ;; Encodes given UTF-8 string as quoted-printable
  (define (string->qp str)
-   str)
+   (let ((lst (string->list/utf8 str)))
+     str))
 
  ;; Ensures the subject has proper encoding
  (define (encode-subject subj)