Rename the following server operations, then add methods to them to

support containers as well as folders:

    create-folder	=>	create-resource
    delete-folder	=>	delete-resource
    rename-folder	=>	rename-resource

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index cb2aefc5f79ec955a7044d1e6594352332300665..ca929ccd46493d5ab7f812fc6204533676e7dee3 100644 (file)
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.132 2001/05/24 01:18:45 cph Exp $
+;;; $Id: imail-core.scm,v 1.133 2001/05/24 01:19:47 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -329,10 +329,10 @@
 (define-generic resource-type-name (resource))
 (define-method resource-type-name ((r <resource>)) r 'RESOURCE)
 
-(define-generic url-protocol ((resource <resource>))
+(define-method url-protocol ((resource <resource>))
   (url-protocol (resource-locator resource)))
 
-(define-generic url-body ((resource <resource>))
+(define-method url-body ((resource <resource>))
   (url-body (resource-locator resource)))
 
 (define-method container-url ((resource <resource>))