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 -r1.24 -r1.25
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	21 Jun 2005 23:24:56 -0000	1.24
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	5 Jul 2005 18:49:55 -0000	1.25
@@ -1,3 +1,4 @@
+
 ad_library {
 
     Provides a simple API for reliably sending email.
@@ -88,7 +89,7 @@
     } {
         set domain [get_parameter -name "BounceDomain"]
         if { [empty_string_p $domain] } {
-	    set domain [ns_info hostname]
+	    set domain [ad_url]
 	}
 	return $domain
     }