Re: [Bug-mit-scheme] imail: message shouldn't retain deleted flag when filed

[Taylor R Campbell]

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