Index: openacs-4/packages/notifications/tcl/delivery-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/delivery-method-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	9 Jul 2002 16:29:39 -0000	1.4
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	20 Sep 2002 21:19:00 -0000	1.5
@@ -26,6 +26,12 @@
     } {
         do the delivery of certain content to a particular user
     } {
+        #need to check if its ok to notify this user in this way.  For now just checks if they are an approved user.
+        if { ![notification::security::can_notify_user -user_id $to_user_id -delivery_method_id $delivery_method_id] } {
+            ns_log notice "Blocked notification to $to_user_id subject:$subject"
+            return "Blocked"
+        }
+
         # Get the implementation key
         set impl_key [get_impl_key -delivery_method_id $delivery_method_id]