From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 14 Jul 2009 20:23:00 +0000 (-0400)
Subject: Make IMAIL synchronize output after writing mail to file folders.
X-Git-Tag: 20100708-Gtk~370^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=58929cd73bad87528aeeac0ab9eed71103390eb3;p=mit-scheme.git

Make IMAIL synchronize output after writing mail to file folders.
---

diff --git a/src/imail/imail-rmail.scm b/src/imail/imail-rmail.scm
index 3d848cca0..fe1c313c9 100644
--- a/src/imail/imail-rmail.scm
+++ b/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-rmail.scm,v 1.80 2009/05/01 12:47:08 riastradh Exp $
+$Id$
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -239,7 +239,8 @@ USA.
       (write-rmail-file-header (rmail-folder-header-fields folder) port)
       (for-each-vector-element (file-folder-messages folder)
 	(lambda (message)
-	  (write-rmail-message message port))))))
+	  (write-rmail-message message port)))
+      (output-port/synchronize-output port))))
 
 (define-method append-message-to-file (message url (type <rmail-folder-type>))
   type
diff --git a/src/imail/imail-umail.scm b/src/imail/imail-umail.scm
index b7894faf7..a56498f59 100644
--- a/src/imail/imail-umail.scm
+++ b/src/imail/imail-umail.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-umail.scm,v 1.59 2008/08/31 23:02:17 riastradh Exp $
+$Id$
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -149,7 +149,8 @@ USA.
     (lambda (port)
       (for-each-vector-element (file-folder-messages folder)
 	(lambda (message)
-	  (write-umail-message message #t port))))))
+	  (write-umail-message message #t port)))
+      (output-port/synchronize-output port))))
 
 (define-method append-message-to-file (message url (type <umail-folder-type>))
   type