From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 10 Sep 2007 16:27:31 +0000 (+0000)
Subject: Update SAVE-RESOURCE method on file folders to reflect six-year-old
X-Git-Tag: 20090517-FFI~447
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52b2d7570887f2a9a6f7a769cb7fa7ae3f4b8555;p=mit-scheme.git

Update SAVE-RESOURCE method on file folders to reflect six-year-old
change of status symbol from FOLDER-MODIFIED to CACHE-MODIFIED.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index bafbde452..82224224d 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-file.scm,v 1.91 2007/03/11 22:38:55 riastradh Exp $
+$Id: imail-file.scm,v 1.92 2007/09/10 16:27:31 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -400,7 +400,7 @@ USA.
 
 (define-method save-resource ((folder <file-folder>))
   (and (let ((status (folder-sync-status folder)))
-	 (or (memq status '(FOLDER-MODIFIED PERSISTENT-DELETED))
+	 (or (memq status '(CACHE-MODIFIED PERSISTENT-DELETED))
 	     (and (eq? status 'BOTH-MODIFIED)
 		  (imail-ui:prompt-for-yes-or-no?
 		   "Disk file has changed since last read.  Save anyway"))))