From 857aef1f08c7dafcb68c977dfd3d05469323cbbd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 1 Jun 2000 19:29:05 +0000
Subject: [PATCH] When decoding BASE64 text strings, must return two values.

---
 v7/src/imail/mime-codec.scm | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/v7/src/imail/mime-codec.scm b/v7/src/imail/mime-codec.scm
index d2dd123fc..4ef81b9e0 100644
--- a/v7/src/imail/mime-codec.scm
+++ b/v7/src/imail/mime-codec.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mime-codec.scm,v 1.5 2000/06/01 18:25:37 cph Exp $
+;;; $Id: mime-codec.scm,v 1.6 2000/06/01 19:29:05 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -100,23 +100,24 @@
 				pending-return?))
 
 (define (decode-base64-text-substring string start end pending-return?)
-  (decode-base64-internal string start end
-    (lambda (port)
-      (lambda (char)
-	(if pending-return?
-	    (case char
-	      ((#\linefeed)
-	       (set! pending-return? #f)
-	       (newline port))
-	      ((#\return)
-	       (write-char #\return port))
-	      (else
-	       (set! pending-return? #f)
-	       (write-char #\return port)))
-	    (if (char=? char #\return)
-		(set! pending-return? #t)
-		(write-char char port))))))
-  pending-return?)
+  (let ((result
+	 (decode-base64-internal string start end
+	   (lambda (port)
+	     (lambda (char)
+	       (if pending-return?
+		   (case char
+		     ((#\linefeed)
+		      (set! pending-return? #f)
+		      (newline port))
+		     ((#\return)
+		      (write-char #\return port))
+		     (else
+		      (set! pending-return? #f)
+		      (write-char #\return port)))
+		   (if (char=? char #\return)
+		       (set! pending-return? #t)
+		       (write-char char port))))))))
+    (values result pending-return?)))
 
 (define (decode-base64-internal string start end make-output)
   (let ((input (string->input-port string start end)))
-- 
2.25.1