[Top][All Lists]

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

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

From: Taylor R Campbell
Subject: Re: [Bug-mit-scheme] confusion about extracting attachments from forwarded mail
Date: Thu, 19 Jun 2008 19:09:37 -0400
User-agent: IMAIL/1.21; Edwin/3.116; MIT-Scheme/7.7.90.+

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*)))
             (attach mark end))))))

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

reply via email to

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