Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	6 Sep 2001 19:32:18 -0000	1.2
@@ -36,6 +36,11 @@
     return [ad_parameter -package_id [ad_acs_kernel_id]  HostAdministrator]
 }
 
+# The email address that will sign outgoing alerts
+proc ad_outgoing_sender {} {
+    return [ad_parameter -package_id [ad_acs_kernel_id]  OutgoingSender]
+}
+
 # set to return 1 if there is a graphics site
 
 proc ad_graphics_site_available_p {} {