Index: openacs-4/packages/notifications/tcl/sweep-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/notifications/tcl/sweep-procs.xql	7 Aug 2017 23:48:13 -0000	1.4
+++ openacs-4/packages/notifications/tcl/sweep-procs.xql	15 Nov 2017 10:40:28 -0000	1.5
@@ -2,6 +2,20 @@
 
 <queryset>
 
+    <fullquery name="notification::sweep::cleanup_notifications.select_notification_ids">
+        <querytext>
+           select notification_id
+           from notifications
+           where notification_id not in (
+           select distinct notification_id
+           from notifications inner join notification_requests using (type_id, object_id)
+             inner join acs_objects on (notification_requests.request_id = acs_objects.object_id)
+             left outer join notification_user_map using (notification_id, user_id)
+           where sent_date is null and creation_date <= notif_date
+           )  
+        </querytext>
+    </fullquery>
+
     <fullquery name="notification::sweep::cleanup_notifications.delete_dynamic_requests">
         <querytext>
            delete from notification_requests