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.16 -r1.16.2.1
--- openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	9 May 2018 15:33:33 -0000	1.16
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	6 Mar 2021 19:36:36 -0000	1.16.2.1
@@ -104,7 +104,7 @@
     db_exec_plsql delete {}
 }
 
-ad_proc -public notification::delivery::update_sc_impl_id {
+ad_proc -private notification::delivery::update_sc_impl_id {
     {-delivery_method_id ""}
     {-sc_impl_id:required}
 } {
Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.47.2.3 -r1.47.2.4
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	12 Jun 2020 12:56:02 -0000	1.47.2.3
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	6 Mar 2021 19:36:36 -0000	1.47.2.4
@@ -75,7 +75,7 @@
         }
     }
 
-    ad_proc -public reply_address {
+    ad_proc -private reply_address {
         {-object_id:required}
         {-type_id:required}
     } {
@@ -88,7 +88,7 @@
         }
     }
 
-    ad_proc -public parse_reply_address {
+    ad_proc -private parse_reply_address {
         {-reply_address:required}
     } {
         This takes a reply address, checks it for consistency, and returns a list of object_id and type_id
@@ -402,7 +402,7 @@
         return $list_of_reply_ids
     }
 
-    ad_proc -public scan_replies {} {
+    ad_proc -private scan_replies {} {
         scan for replies
     } {
         ns_log debug "notification::email::scan_replies: about to load qmail queue"
Index: openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl	24 Apr 2018 14:28:56 -0000	1.9
+++ openacs-4/packages/notifications/tcl/reply-sweep-procs.tcl	6 Mar 2021 19:36:36 -0000	1.9.2.1
@@ -13,7 +13,7 @@
 namespace eval notification::reply::sweep {}
 
 
-ad_proc -public notification::reply::sweep::scan_all_replies {} {
+ad_proc -private notification::reply::sweep::scan_all_replies {} {
     Go through all the delivery methods and scan replies for that delivery method.
 } {
     ns_log Debug "notification::reply::sweep::scan_all_replies starting"
@@ -28,7 +28,7 @@
     }
 }
 
-ad_proc -public notification::reply::sweep::process_all_replies {} {
+ad_proc -private notification::reply::sweep::process_all_replies {} {
     Go through the replies in the DB and dispatch correctly to the right processor.
 } {
     ns_log Debug "notification::reply::sweep::process_all_replies starting"
Index: openacs-4/packages/notifications/tcl/sweep-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/sweep-procs.tcl,v
diff -u -r1.28.2.3 -r1.28.2.4
--- openacs-4/packages/notifications/tcl/sweep-procs.tcl	9 Nov 2020 17:38:57 -0000	1.28.2.3
+++ openacs-4/packages/notifications/tcl/sweep-procs.tcl	6 Mar 2021 19:36:36 -0000	1.28.2.4
@@ -10,7 +10,7 @@
 
 namespace eval notification::sweep {
 
-    ad_proc -public cleanup_notifications {} {
+    ad_proc -private cleanup_notifications {} {
         Clean up the notifications that have been sent out (DRB: inefficiently...).
     } {
         # before the killing starts, remove invalid requests
@@ -44,7 +44,7 @@
 
     }
 
-    ad_proc -public sweep_notifications {
+    ad_proc -private sweep_notifications {
         {-interval_id:required}
         {-batched_p 0}
     } {