[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*)))
(else
(attach mark end))))))
Then view the message with forwarded attachments again, and let me
know if it works any better.