diff options
Diffstat (limited to 'email')
| -rw-r--r-- | email/quoted-printable.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm index b6f4c54..11abaff 100644 --- a/email/quoted-printable.scm +++ b/email/quoted-printable.scm @@ -24,7 +24,8 @@ #:use-module (srfi srfi-26) #:export (quoted-printable-decode quoted-printable-encode - q-encoding-decode)) + q-encoding-decode + q-encoding-encode)) ;; TODO: Error out on invalid quoted-printable input (define quoted-printable-decode @@ -89,3 +90,9 @@ (lambda (c) (if (char=? c #\_) #\Space c)) str))) + +(define (q-encoding-encode bv) + (string-map + (lambda (c) + (if (char=? c #\Space) #\_ c)) + (quoted-printable-encode bv))) |