Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql	13 May 2001 00:55:23 -0000	1.1
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql	1 Jun 2001 13:02:40 -0000	1.2
@@ -3,6 +3,22 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
+<fullquery name="acs_messaging_send_query.insert_messaging_by_query">      
+      <querytext>
+      
+        insert into acs_messages_outgoing
+            (message_id, to_address, grouping_id, wait_until)
+        select :m__message_id, p.email, q.grouping_id,
+               nvl(q.wait_until, SYSDATE) as wait_until
+            from ($query) q, parties p
+            where not exists (select 1 from acs_messages_outgoing o
+                                  where o.message_id = :m__message_id
+                                    and p.email = o.to_address)
+              and p.party_id = q.recipient_id
+    
+      </querytext>
+</fullquery>
+
 <fullquery name="acs_message_p.acs_message_p">      
       <querytext>