From: Taylor R. Campbell <net/mumble/campbell>
Date: Sun, 8 Jul 2007 06:37:31 +0000 (+0000)
Subject: Work around bug lurking after change to store buffer contents in
X-Git-Tag: 20090517-FFI~498
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c188fc839755c4fb6b45b814adf6e1c9c659d575;p=mit-scheme.git

Work around bug lurking after change to store buffer contents in
external strings: %GROUP-WRITE, called in WRITE-MIME-MESSAGE-BODY-1,
passes along an external string to the writer procedure, but
ENCODE-QUOTED-PRINTABLE:UPDATE expects an internal string.  Copy the
string into the heap for now with XSUBSTRING, rather than fixing the
MIME encoder to accept external strings.
---

diff --git a/v7/src/edwin/sendmail.scm b/v7/src/edwin/sendmail.scm
index d94ce951e..d2062f0ff 100644
--- a/v7/src/edwin/sendmail.scm
+++ b/v7/src/edwin/sendmail.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sendmail.scm,v 1.90 2007/01/05 21:19:24 cph Exp $
+$Id: sendmail.scm,v 1.91 2007/07/08 06:37:31 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1118,7 +1118,11 @@ the user from the mailer."
 			(mark-index b-start)
 			(mark-index b-end)
 	    (lambda (string start end)
-	      (encode-quoted-printable:update context string start end)))
+	      (encode-quoted-printable:update
+               context
+               (xsubstring string 0 (xstring-length string))
+               start
+               end)))
 	  (encode-quoted-printable:finalize context)))
       (begin
 	(if (not (and subpart? (ref-variable mail-abbreviate-mime b-start)))