Re: [Bug-mit-scheme] confusion about extracting attachments from forwarded mail

[Taylor R Campbell]

If you are reading this with IMAIL, evaluate the following patch by
putting the point after it and hitting C-x C-e:

((lambda (form) (eval form (->environment '(EDWIN IMAIL FRONT-END)))
 '(define (attach-mime-info start end info)
    (define (attach start end)
      (if (not (region-get start 'IMAIL-MIME-INFO #f))
          (region-put! start end 'IMAIL-MIME-INFO info #t)))
    (let loop ((mark start))
      (cond ((find-next-specific-property-change mark end 'IMAIL-MIME-INFO)
             => (lambda (mark*)
                  (attach mark mark*)
                  (loop mark*)))
            (else
             (attach mark end))))))

Then view the message with forwarded attachments again, and let me
know if it works any better.