diff --git a/src/util-mail.scm b/src/util-mail.scm
index 5eddd50..061bf94 100644
--- a/src/util-mail.scm
+++ b/src/util-mail.scm
@@ -42,17 +42,6 @@
  ;; 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)
-   (let loop ((lst (string->list/utf8 str))
-	      (res '()))
-     (if (null? lst)
-	 (string-intersperse (reverse res) "")
-	 (loop (cdr lst)
-	       (cons (let ((chs (car lst)))
-		       chs)
-		     res)))))
-
  ;; Ensures the subject has proper encoding
  (define (encode-subject subj)
    subj)