From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 20:02:24 +0000 (+0000)
Subject: Fix bug: code to create new file folders wasn't writing the folders
X-Git-Tag: 20090517-FFI~3380
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3c344d54d96c9b4ee2909c8b403a15725e50c6a4;p=mit-scheme.git

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 b1a84caab..bb800b7d2 100644
--- 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)))
 
 ;;;; Folder
diff --git a/v7/src/imail/imail-umail.scm b/v7/src/imail/imail-umail.scm
index da1787b06..d853a2619 100644
--- 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)