SirMail: grepable message-index file format

2011-03-03 13:42:30 -07:00 · 2011-03-03 13:42:30 -07:00 · 63d465f114
commit 63d465f114
parent 6b907d6b61
1 changed files with 6 additions and 1 deletions
--- a/collects/sirmail/readr.rkt
+++ b/collects/sirmail/readr.rkt
@ -202,7 +202,12 @@
 	(status "Saving mailbox information...")
 	(with-output-to-file (build-path mailbox-dir "mailbox")
 	  (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))
      
      ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;