[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Bug-mit-scheme] Scheme imail bug
From: |
Taylor R Campbell |
Subject: |
Re: [Bug-mit-scheme] Scheme imail bug |
Date: |
Fri, 13 Jul 2007 01:34:14 +0000 |
User-agent: |
IMAIL/1.21; Edwin/3.116; MIT-Scheme/7.7.90.+ |
Date: Thu, 12 Jul 2007 21:30:10 -0400
From: Hal Abelson <address@hidden>
When will the fix migrate to the system installed on the Swiss
machines? They appear to be running the June 23 release with Imail 1.21
I don't know, but if you'd like to fix it now, you can evaluate the
following (directly in IMAIL, if you'd like, with C-x C-e):
((lambda (form) (eval form (->environment '(EDWIN SENDMAIL))))
'(define (write-mime-message-body-1 b-start b-end subpart? port)
(if (not (and subpart? (ref-variable mail-abbreviate-mime b-start)))
(write-message-header-field "Content-Type"
"text/plain; charset=us-ascii"
port))
(if (or (any-non-us-ascii-chars? b-start b-end)
(any-lines-too-long? b-start b-end 76))
(begin
(write-message-header-field "Content-Transfer-Encoding"
"quoted-printable"
port)
(newline port)
(let ((context (encode-quoted-printable:initialize port #t)))
(%group-write (mark-group b-start)
(mark-index b-start)
(mark-index b-end)
(lambda (string start end)
(encode-quoted-printable:update
context
;** This expression is the workaround; it was STRING before.
(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)))
(write-message-header-field "Content-Transfer-Encoding"
"7bit"
port))
(newline port)
(write-region-to-port b-start b-end port)))))