Index: openacs.org-dev/packages/forums/tcl/messages-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/messages-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/forums/tcl/messages-procs.xql	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/forums/tcl/messages-procs.xql	12 Aug 2002 17:20:31 -0000	1.2
@@ -27,4 +27,10 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="forum::message::get_notifications_for_delete">
+        <querytext>
+            select notification_id from notifications
+	    where object_id=:message_id or response_id=:message_id
+	</querytext>
+    </fullquery>
 </queryset>