Re: [Bug-mit-scheme] Scheme imail bug

[Taylor R Campbell]

   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)))))