From 6f37312466b6ed040c7ec33c8f44bc18873a06d3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 18 Jan 2000 20:47:17 +0000
Subject: [PATCH] Fix typos.

---
 v7/src/imail/imail-umail.scm | 60 +++++++++++++++++++-----------------
 1 file changed, 31 insertions(+), 29 deletions(-)

diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index 8d84eb3df..763684409 100644
--- a/v7/src/imail/imail-umail.scm
+++ b/v7/src/imail/imail-umail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-umail.scm,v 1.5 2000/01/14 18:08:08 cph Exp $
+;;; $Id: imail-umail.scm,v 1.6 2000/01/18 20:47:17 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -82,33 +82,35 @@
 		       (reverse! messages)))))))))))
 
 (define (read-umail-message from-line port import?)
-  (let ((finish))
-    (let read-headers ((header-lines '()))
-      (let ((line (read-line port)))
-	(cond ((eof-object? line)
-	       (values (make-umail-message from-line
-					   (reverse! header-lines)
-					   '())
-		       #f))
-	      ((string-null? line)
-	       (let read-body ((body-lines '()))
-		 (let ((line (read-line port)))
-		   (cond ((eof-object? line)
-			  (values (make-umail-message from-line
-						      (reverse! header-lines)
-						      (reverse! body-lines))
-				  #f))
-			 ((umail-delimiter? line)
-			  (values (make-umail-message from-line
-						      (reverse! header-lines)
-						      (reverse! body-lines))
-				  line))
-			 (else
-			  (read-body (cons line body-lines)))))))
-	      (else
-	       (read-headers (cons line header-lines))))))))
-
-(define (make-umail-message from-line header-lines body-lines)
+  (let read-headers ((header-lines '()))
+    (let ((line (read-line port)))
+      (cond ((eof-object? line)
+	     (values (make-umail-message from-line
+					 (reverse! header-lines)
+					 '()
+					 import?)
+		     #f))
+	    ((string-null? line)
+	     (let read-body ((body-lines '()))
+	       (let ((line (read-line port)))
+		 (cond ((eof-object? line)
+			(values (make-umail-message from-line
+						    (reverse! header-lines)
+						    (reverse! body-lines)
+						    import?)
+				#f))
+		       ((umail-delimiter? line)
+			(values (make-umail-message from-line
+						    (reverse! header-lines)
+						    (reverse! body-lines)
+						    import?)
+				line))
+		       (else
+			(read-body (cons line body-lines)))))))
+	    (else
+	     (read-headers (cons line header-lines)))))))
+
+(define (make-umail-message from-line header-lines body-lines import?)
   (let ((message
 	 (make-standard-message
 	  (maybe-strip-imail-headers import?
@@ -153,7 +155,7 @@
 	  (write-string (universal-time->unix-ctime (get-universal-time))
 			port))))
   (newline port)
-  (if (not export)
+  (if (not export?)
       (begin
 	(write-header-field
 	 (message-flags->header-field (message-flags message))
-- 
2.25.1