From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 10 Sep 2001 00:49:45 +0000 (+0000)
Subject: Work around bug in "Microsoft Outlook IMO, Build 9.0.2416
X-Git-Tag: 20090517-FFI~2582
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f5025044953b6d40e9089a89fa759fce4cbc7e3;p=mit-scheme.git

Work around bug in "Microsoft Outlook IMO, Build 9.0.2416
(9.0.2910.0)" -- it sends documents of type application/octet-stream
with embedded hard line breaks, which is illegal according to RFC
2045, page 20:

	Since the canonical representation of media types other than
	text do not generally include the representation of line
	breaks as CRLF sequences, no hard line breaks (i.e. line
	breaks that are intended to be meaningful and to be displayed
	to the user) can occur in the quoted-printable encoding of
	such types.
---

diff --git a/v7/src/runtime/mime-codec.scm b/v7/src/runtime/mime-codec.scm
index 2cdd8df75..d93fa94bf 100644
--- a/v7/src/runtime/mime-codec.scm
+++ b/v7/src/runtime/mime-codec.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: mime-codec.scm,v 14.9 2001/02/08 17:16:05 cph Exp $
+;;; $Id: mime-codec.scm,v 14.10 2001/09/10 00:49:45 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -257,8 +257,7 @@
 		context
 		(decode-qp-pending-string pending string end* end)))
 	      ((not pending)
-	       (if (and (eq? type 'LINE-END)
-			(qp-decoding-context/text? context))
+	       (if (eq? type 'LINE-END)
 		   ;; Hard line break.
 		   (newline port)))
 	      ((eqv? pending #\=)