From 3c344d54d96c9b4ee2909c8b403a15725e50c6a4 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 5 Jul 2000 20:02:24 +0000
Subject: [PATCH] Fix bug: code to create new file folders wasn't writing the
 folders out.

---
 v7/src/imail/imail-rmail.scm | 6 +++++-
 v7/src/imail/imail-umail.scm | 6 +++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

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)
-- 
2.25.1