Remove old utf8 string to list converter.

src/util-string.scm

@@ -41,7 +41,8 @@
 	 (chicken base)
 	 (chicken string)
 	 (chicken irregex)
-	 testing)
+	 testing
+	 util-utf8)
 
  ;; Extracts first token and the rest as separate string
  (define (string-first+rest str)
@@ -54,13 +55,9 @@
 	   (cons key-str val))
 	 (cons str ""))))
 
- ;; Converts given UTF-8 string into a list of UTF-8 string characters.
- (define (string->list/utf8 str)
-   (irregex-extract (irregex "." 'u) str))
-	 
  ;; Encodes given UTF-8 string as quoted-printable
  (define (string->qp str)
-   (let loop ((lst (string->list/utf8 str))
+   (let loop ((lst (utf8-string->list str))
 	      (res '()))
      (if (null? lst)
 	 (string-intersperse (reverse res) "")