From 6cc99c4ae55a5d4dda9e54892f6f5592e4ad8005 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 24 May 2001 01:19:47 +0000 Subject: [PATCH] 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 --- v7/src/imail/imail-core.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm index cb2aefc5f..ca929ccd4 100644 --- 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 )) r 'RESOURCE) -(define-generic url-protocol ((resource )) +(define-method url-protocol ((resource )) (url-protocol (resource-locator resource))) -(define-generic url-body ((resource )) +(define-method url-body ((resource )) (url-body (resource-locator resource))) (define-method container-url ((resource )) -- 2.25.1