From 2784c121d5a3c9d8e7831c883edac3b6857bc198 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 12 Sep 2018 17:52:08 +0530
Subject: Untabify and re-indent all sources.

* build-aux/test-driver.scm, email/base64.scm, email/email.scm,
email/quoted-printable.scm, email/utils.scm,
tests/quoted-printable.scm: Untabify and re-indent.
---
 email/base64.scm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'email/base64.scm')

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
-- 
cgit v1.2.3