From af38bf02b7bb80b333ded5193c47011544369f66 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 May 2000 17:18:19 +0000
Subject: [PATCH] Generate predicate for file folders.

---
 v7/src/imail/imail-file.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index 9c1fa0cac..e0b2d29d9 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.25 2000/05/17 15:03:15 cph Exp $
+;;; $Id: imail-file.scm,v 1.26 2000/05/17 17:18:19 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -52,7 +52,7 @@
 
 ;;;; Folder
 
-(define-class <file-folder> (<folder>)
+(define-class (<file-folder> (predicate)) (<folder>)
   (messages define standard
 	    accessor %file-folder-messages
 	    initial-value 'UNKNOWN)
-- 
2.25.1