From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 02:05:05 +0000 (+0000)
Subject: Fix compiler warning.
X-Git-Tag: 20090517-FFI~3590
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=67b893f79a76c0fd4bf3909e555dcbfd2b9ca9f7;p=mit-scheme.git

Fix compiler warning.
---

diff --git a/v7/src/imail/mime-codec.scm b/v7/src/imail/mime-codec.scm
index 32493920b..5b18c8c01 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.9 2000/06/08 01:46:37 cph Exp $
+;;; $Id: mime-codec.scm,v 1.10 2000/06/08 02:05:05 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -61,27 +61,25 @@
 
 (define (encode-qp context string start end type)
   (encode-qp-pending-lwsp context (fix:< start end) type)
-  (let ((port (qp-encoding-context/port context))
-	(text? (qp-encoding-context/text? context)))
-    (let loop ((start start))
-      (cond ((fix:< start end)
-	     (let ((char (string-ref string start))
-		   (start (fix:+ start 1)))
-	       (cond ((not (char-lwsp? char))
-		      (if (char-qp-unencoded? char)
-			  (write-qp-clear context char)
-			  (write-qp-encoded context char))
-		      (loop start))
-		     ((and (eq? type 'PARTIAL)
-			   (not (fix:< start end)))
-		      (set-qp-encoding-context/pending-lwsp! context char))
-		     (else
-		      (if (fix:< start end)
-			  (write-qp-clear context char)
-			  (write-qp-encoded context char))
-		      (loop start)))))
-	    ((eq? type 'LINE-END)
-	     (write-qp-hard-break context))))))
+  (let loop ((start start))
+    (cond ((fix:< start end)
+	   (let ((char (string-ref string start))
+		 (start (fix:+ start 1)))
+	     (cond ((not (char-lwsp? char))
+		    (if (char-qp-unencoded? char)
+			(write-qp-clear context char)
+			(write-qp-encoded context char))
+		    (loop start))
+		   ((and (eq? type 'PARTIAL)
+			 (not (fix:< start end)))
+		    (set-qp-encoding-context/pending-lwsp! context char))
+		   (else
+		    (if (fix:< start end)
+			(write-qp-clear context char)
+			(write-qp-encoded context char))
+		    (loop start)))))
+	  ((eq? type 'LINE-END)
+	   (write-qp-hard-break context)))))
 
 (define (encode-qp-pending-lwsp context packet-not-empty? type)
   (let ((pending (qp-encoding-context/pending-lwsp context)))