Fix bug: code to create new file folders wasn't writing the folders

out.

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index b1a84caab6dede4e455c197ddaca612d84e7a51a..bb800b7d2a37e2b0c8e968ee0d551982f4c5c3a8 100644 (file)
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.48 2000/07/05 19:13:12 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.49 2000/07/05 20:02:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -56,6 +56,10 @@
     (set-rmail-folder-header-fields!
      folder
      (compute-rmail-folder-header-fields folder))
+    (set-file-folder-file-modification-time! folder (get-universal-time))
+    (set-file-folder-file-modification-count!
+     folder
+     (folder-modification-count folder))
     (save-folder folder)))
 \f
 ;;;; Folder

diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index da1787b063d4f2dfaef4fa1b108b6a95836af9b2..d853a2619431b80d5816022e7956c47ae347b930 100644 (file)
--- a/v7/src/imail/imail-umail.scm
+++ b/v7/src/imail/imail-umail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-umail.scm,v 1.37 2000/07/05 19:13:13 cph Exp $
+;;; $Id: imail-umail.scm,v 1.38 2000/07/05 20:02:24 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -53,6 +53,10 @@
       (error:bad-range-argument url 'CREATE-FOLDER))
   (let ((folder (make-umail-folder url)))
     (set-file-folder-messages! folder '())
+    (set-file-folder-file-modification-time! folder (get-universal-time))
+    (set-file-folder-file-modification-count!
+     folder
+     (folder-modification-count folder))
     (save-folder folder)))
 
 (define (read-umail-file pathname)