aboutsummaryrefslogtreecommitdiff
path: root/email/base64.scm
diff options
context:
space:
mode:
Diffstat (limited to 'email/base64.scm')
-rw-r--r--email/base64.scm16
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