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/quoted-printable.scm | 68 +++++++++++++++++++++++-----------------------
 1 file changed, 34 insertions(+), 34 deletions(-)

(limited to 'email/quoted-printable.scm')

diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm
index d084a7e..b6f4c54 100644
--- a/email/quoted-printable.scm
+++ b/email/quoted-printable.scm
@@ -23,8 +23,8 @@
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-26)
   #:export (quoted-printable-decode
-	    quoted-printable-encode
-	    q-encoding-decode))
+            quoted-printable-encode
+            q-encoding-decode))
 
 ;; TODO: Error out on invalid quoted-printable input
 (define quoted-printable-decode
@@ -33,30 +33,30 @@
      (call-with-input-string str quoted-printable-decode))
     (((? port? in))
      (let-values (((out get-bytevector)
-		   (open-bytevector-output-port)))
+                   (open-bytevector-output-port)))
        (call-with-port
-	out (lambda (out)
-	      (quoted-printable-decode in out)
-	      (get-bytevector)))))
+        out (lambda (out)
+              (quoted-printable-decode in out)
+              (get-bytevector)))))
     (((? port? in) (? port? out))
      (let ((c (read-char in)))
        (cond
-	((eof-object? c) out)
-	((char=? c #\=)
-	 ;; TODO: Support "\r\n" line ending
-	 (let ((c1 (read-char in)))
-	   (unless (char=? c1 #\Newline)
-	     (let ((c2 (read-char in)))
-	       (put-u8 out (string->number (string c1 c2) 16)))))
-	 (quoted-printable-decode in out))
-	(else (put-u8 out (char->integer c))
-	      (quoted-printable-decode in out)))))))
+        ((eof-object? c) out)
+        ((char=? c #\=)
+         ;; TODO: Support "\r\n" line ending
+         (let ((c1 (read-char in)))
+           (unless (char=? c1 #\Newline)
+             (let ((c2 (read-char in)))
+               (put-u8 out (string->number (string c1 c2) 16)))))
+         (quoted-printable-decode in out))
+        (else (put-u8 out (char->integer c))
+              (quoted-printable-decode in out)))))))
 
 (define quoted-printable-encode
   (match-lambda*
     (((? bytevector? bv))
      (call-with-port (open-bytevector-input-port bv)
-		     quoted-printable-encode))
+                     quoted-printable-encode))
     (((? port? in))
      (call-with-output-string
        (cut quoted-printable-encode in <>)))
@@ -64,24 +64,24 @@
      (quoted-printable-encode in out 76))
     (((? port? in) (? port? out) (? integer? number-of-chars-left-on-this-line))
      (let ((x (get-u8 in))
-	   (put-into-output
-	    (lambda (str)
-	      (let* ((len (string-length str))
-		     (break-line? (<= number-of-chars-left-on-this-line len)))
-		(put-string
-		 out (string-append (if break-line? "=\n" "") str))
-		(if break-line?
-		    (- 76 len)
-		    (- number-of-chars-left-on-this-line len))))))
+           (put-into-output
+            (lambda (str)
+              (let* ((len (string-length str))
+                     (break-line? (<= number-of-chars-left-on-this-line len)))
+                (put-string
+                 out (string-append (if break-line? "=\n" "") str))
+                (if break-line?
+                    (- 76 len)
+                    (- number-of-chars-left-on-this-line len))))))
        (unless (eof-object? x)
-	 (let ((c (integer->char x)))
-	   (quoted-printable-encode
-	    in out
-	    (put-into-output
-	     (if (char-set-contains?
-		  (char-set-delete char-set:ascii #\newline #\return) c)
-		 (string c)
-		 (format #f "=~:@(~2,'0x~)" x))))))))))
+         (let ((c (integer->char x)))
+           (quoted-printable-encode
+            in out
+            (put-into-output
+             (if (char-set-contains?
+                  (char-set-delete char-set:ascii #\newline #\return) c)
+                 (string c)
+                 (format #f "=~:@(~2,'0x~)" x))))))))))
 
 (define (q-encoding-decode str)
   (quoted-printable-decode
-- 
cgit v1.2.3