Index: openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql	5 Apr 2001 18:23:38 -0000	1.1
+++ openacs-4/packages/acs-mail/sql/oracle/acs-mail-queue-create.sql	13 Aug 2001 17:24:48 -0000	1.2
@@ -24,13 +24,14 @@
     message_id integer
         constraint acs_mail_queue_ml_id_pk primary key
         constraint acs_mail_queue_ml_id_fk references acs_mail_links
+		on delete cascade
 );
 
 create table acs_mail_queue_incoming (
     message_id integer
         constraint acs_mail_queue_in_mlid_pk primary key
         constraint acs_mail_queue_in_mlid_fk
-            references acs_mail_queue_messages,
+            references acs_mail_queue_messages on delete cascade,
     envelope_from varchar2(4000),
     envelope_to varchar2(4000)
 );
@@ -39,7 +40,7 @@
     message_id integer
         constraint acs_mail_queue_out_mlid_pk primary key
         constraint acs_mail_queue_out_mlid_fk
-            references acs_mail_queue_messages,
+            references acs_mail_queue_messages on delete cascade,
     envelope_from varchar2(4000),
     envelope_to varchar2(4000)
 );
@@ -85,7 +86,7 @@
  begin
      v_object_id := acs_mail_link.new (
          mail_link_id => mail_link_id,
-	 body_id => body_id,		      
+		 body_id => body_id,		      
          context_id => context_id,
          creation_date => creation_date,
          creation_user => creation_user,