suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SirMail: grepable message-index file format

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-03 13:42:30 -07:00
parent 6b907d6b61
commit 63d465f114
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/sirmail/readr.rkt
View File

@ -202,7 +202,12 @@
(status "Saving mailbox information...") (status "Saving mailbox information...")
(with-output-to-file (build-path mailbox-dir "mailbox") (with-output-to-file (build-path mailbox-dir "mailbox")
(lambda () (lambda ()
(write (cons uid-validity (map vector->list mailbox)))) (printf "(\n")
(for-each (lambda (l)
(write l)
(newline))
(cons uid-validity (map vector->list mailbox)))
(printf ")\n"))
'truncate)) 'truncate))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;