Index: openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/Attic/incoming-mail-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	29 Jan 2007 17:16:51 -0000	1.1
+++ openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	8 Apr 2007 08:12:51 -0000	1.2
@@ -14,6 +14,18 @@
 namespace eval acs_mail_lite {
 
     #---------------------------------------
+    ad_proc -public address_domain {} {
+	@returns domain address to which bounces are directed to
+    } {
+        set domain [get_parameter -name "BounceDomain"]
+        if { $domain eq "" } {
+	    regsub {http://} [ns_config ns/server/[ns_info server]/module/nssock hostname] {} domain
+	}
+	return $domain
+    }
+    
+
+    #---------------------------------------
     ad_proc -private load_mails {
         -queue_dir:required
     } {
@@ -233,4 +245,4 @@
 	mime::finalize $mime -subordinates all
     }    
         
-}
\ No newline at end of file
+}