bug-mit-scheme
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Bug-mit-scheme] Scheme imail bug


From: Hal Abelson
Subject: [Bug-mit-scheme] Scheme imail bug
Date: Thu, 12 Jul 2007 21:41:46 -0400
User-agent: IMAIL/1.21; Edwin/3.116; MIT-Scheme/7.7.90.+

Thanks!





--------------------------------------------------
In reply to the message:

    Date: Fri, 13 Jul 2007 01:34:14 +0000
    From: Taylor R Campbell <address@hidden>

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



    _______________________________________________
    Bug-MIT-Scheme mailing list
    address@hidden
    http://lists.gnu.org/mailman/listinfo/bug-mit-scheme




reply via email to

[Prev in Thread] Current Thread [Next in Thread]