Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -N -r1.81 -r1.82
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Sep 2008 20:26:43 -0000	1.81
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	13 Feb 2009 17:43:19 -0000	1.82
@@ -31,22 +31,6 @@
         return [parameter::get -package_id [get_package_id] -parameter $name -default $default]
     }
     
-    ad_proc -public address_domain {} {
-        @returns domain address to which bounces are directed to
-    } {
-        set domain [get_parameter -name "BounceDomain"]
-        if { [empty_string_p $domain] } {
-            regsub {http://} [ns_config ns/server/[ns_info server]/module/nssock hostname] {} domain
-        }
-        return $domain
-    }
-    
-    ad_proc -private bounce_prefix {} {
-        @returns bounce prefix for x-envelope-from
-    } {
-        return [get_parameter -name "EnvelopePrefix"]
-    }
-    
     ad_proc -private mail_dir {} {
         @returns incoming mail directory to be scanned for bounces
     } {