Index: openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql	13 Aug 2001 17:23:52 -0000	1.2
+++ openacs-4/packages/acs-mail/sql/oracle/acs-mail-packages-create.sql	30 Sep 2003 12:10:02 -0000	1.3
@@ -20,7 +20,7 @@
   context_id    in acs_objects.context_id%TYPE    default null
  ) return acs_objects.object_id%TYPE;
 
- procedure delete (
+ procedure del (
   gc_object_id in acs_mail_gc_objects.gc_object_id%TYPE
  );
 
@@ -50,7 +50,7 @@
   context_id        in acs_objects.context_id%TYPE    default null
  ) return acs_objects.object_id%TYPE;
 
- procedure delete (
+ procedure del (
   body_id in acs_mail_bodies.body_id%TYPE
  );
 
@@ -96,7 +96,7 @@
   context_id     in acs_objects.context_id%TYPE                default null
  ) return acs_objects.object_id%TYPE;
 
- procedure delete (
+ procedure del (
   multipart_id in acs_mail_multiparts.multipart_id%TYPE
  );
 
@@ -131,7 +131,7 @@
   object_type     in acs_objects.object_type%TYPE   default 'acs_mail_link'
  ) return acs_objects.object_id%TYPE;
 
- procedure delete (
+ procedure del (
   mail_link_id in acs_mail_links.mail_link_id%TYPE
  );
 
@@ -170,15 +170,15 @@
      return v_object_id;
  end new;
 
- procedure delete (
+ procedure del (
   gc_object_id in acs_mail_gc_objects.gc_object_id%TYPE
  )
  is
  begin
      delete from acs_mail_gc_objects
-         where gc_object_id = acs_mail_gc_object.delete.gc_object_id;
-     acs_object.delete(gc_object_id);
- end delete;
+         where gc_object_id = acs_mail_gc_object.del.gc_object_id;
+     acs_object.del(gc_object_id);
+ end del;
 
 end acs_mail_gc_object;
 /
@@ -232,13 +232,13 @@
      return v_object_id;
  end new;
 
- procedure delete (
+ procedure del (
   body_id in acs_mail_bodies.body_id%TYPE
  )
  is
  begin
-     acs_mail_gc_object.delete(body_id);
- end delete;
+     acs_mail_gc_object.del(body_id);
+ end del;
 
  function body_p (
   object_id in acs_objects.object_id%TYPE
@@ -349,13 +349,13 @@
      return v_object_id;
  end new;
 
- procedure delete (
+ procedure del (
   multipart_id in acs_mail_multiparts.multipart_id%TYPE
  )
  is
  begin
-     acs_mail_gc_object.delete(multipart_id);
- end delete;
+     acs_mail_gc_object.del(multipart_id);
+ end del;
 
  function multipart_p (
   object_id in acs_objects.object_id%TYPE
@@ -432,14 +432,14 @@
      return v_object_id;
  end;
 
- procedure delete (
+ procedure del (
   mail_link_id in acs_mail_links.mail_link_id%TYPE
  )
  is
  begin
      delete from acs_mail_links
-         where mail_link_id = acs_mail_link.delete.mail_link_id;
-     acs_object.delete(mail_link_id);
+         where mail_link_id = acs_mail_link.del.mail_link_id;
+     acs_object.del(mail_link_id);
  end;
 
  function link_p (
