diff options
Diffstat (limited to 'email/base64.scm')
| -rw-r--r-- | email/base64.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/email/base64.scm b/email/base64.scm index 6b11b3f..94b7388 100644 --- a/email/base64.scm +++ b/email/base64.scm @@ -142,9 +142,9 @@ (put p #\=))))))) (extract))))) - ;; Decodes a base64 string. The string must contain only pure - ;; unpadded base64 data. - +;; Decodes a base64 string. The string must contain only pure +;; unpadded base64 data. + (define base64-decode (case-lambda ((str) @@ -199,11 +199,11 @@ (eof-object) (f (get-line port)))) - ;; Reads the common -----BEGIN/END type----- delimited format from - ;; the given port. Returns two values: a string with the type and a - ;; bytevector containing the base64 decoded data. The second value - ;; is the eof object if there is an eof before the BEGIN delimiter. - +;; Reads the common -----BEGIN/END type----- delimited format from +;; the given port. Returns two values: a string with the type and a +;; bytevector containing the base64 decoded data. The second value +;; is the eof object if there is an eof before the BEGIN delimiter. + (define (get-delimited-base64 port) (define (get-first-data-line port) ;; Some MIME data has header fields in the same format as mail |