Fix appending to open file folders so that it signals an

INCREASE-LENGTH modification event.

diff --git a/src/imail/imail-file.scm b/src/imail/imail-file.scm
index 14001c2c773655875f1b586f5e069ac8d9da4558..2b07470e1e7391829805ade6578c074365094c56 100644 (file)
--- a/src/imail/imail-file.scm
+++ b/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-file.scm,v 1.97 2008/09/25 14:58:06 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,
@@ -309,14 +309,14 @@ USA.
          (let ((message (make-message-copy message folder)))
            (without-interrupts
             (lambda ()
-              (set-file-folder-messages!
-               folder
-               (let ((messages (file-folder-messages folder)))
-                 (let ((n (vector-length messages)))
-                   (let ((messages (vector-grow messages (fix:+ n 1))))
-                     (attach-message! message folder n)
-                     (vector-set! messages n message)
-                     messages)))))))
+              (let* ((messages (file-folder-messages folder))
+                     (n (vector-length messages))
+                     (n* (fix:+ n 1))
+                     (messages* (vector-grow messages n*)))
+                (attach-message! message folder n)
+                (vector-set! messages* n message)
+                (set-file-folder-messages! folder messages*)
+                (object-modified! folder 'INCREASE-LENGTH n n*)))))
          (let ((type
                 (if exists?
                     (url-file-folder-type url)