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 3d848cca00c8f651a44d718e0097b08bafb5f6ec..fe1c313c9c768ba097e3e3f7b432944c460768d6 100644 (file)
--- 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 b7894faf7db9f8b1ac1b528e34219ea27636ab79..a56498f59ddab8556d7a63e19a4e678816ab435b 100644 (file)
--- 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