[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Bug-mit-scheme] imail: message shouldn't retain deleted flag when f
From: |
Taylor R Campbell |
Subject: |
Re: [Bug-mit-scheme] imail: message shouldn't retain deleted flag when filed |
Date: |
Fri, 1 May 2009 08:50:44 -0400 |
User-agent: |
IMAIL/1.21; Edwin/3.116; MIT-Scheme/7.7.90.+ |
Date: Thu, 30 Apr 2009 23:13:54 -0400
From: Julie Sussman <address@hidden>
It is also a problem when filing from an IMAP folder to an rmail file.
Oops! That was a simpler oversight in my changes to strip the deleted
flag when filing messages. Here's a patch:
((lambda (form)
(eval form (->environment '(EDWIN IMAIL RMAIL-FOLDER))))
'(define (write-rmail-attributes-line message formatted? port)
(write-char (if formatted? #\1 #\0) port)
(write-char #\, port)
(receive (attributes labels)
(flags->rmail-markers (message-permanent-flags message))
(let ((write-markers
(lambda (markers)
(for-each (lambda (marker)
(write-char #\space port)
(write-string marker port)
(write-char #\, port))
markers))))
(write-markers attributes)
(write-char #\, port)
(write-markers labels)))
(newline port)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: [Bug-mit-scheme] imail: message shouldn't retain deleted flag when filed,
Taylor R Campbell <=