Index: openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	28 Nov 2001 18:39:39 -0000	1.6
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	30 Nov 2001 00:50:22 -0000	1.7
@@ -392,11 +392,13 @@
     message_rec record;
 begin
     for message_rec in
-        select object_id as message_id
-          from acs_objects
-         where object_type = 'acs_message'
-           and object_id not in (select message_id 
-                                   from bboard_forum_message_map)
+        select o.object_id as message_id
+          from acs_objects o
+         where o.object_type = 'acs_message'
+            and not exists (select 1
+                            from bboard_forum_message_map bfmm, acs_objects o2
+                            where o2.object_id = bfmm.message_id and
+                              o.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey))
     loop
         perform bboard_message__remove(message_rec.message_id);
     end loop;