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.25 -r1.26
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	5 Jul 2005 18:49:55 -0000	1.25
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	6 Jul 2005 09:42:42 -0000	1.26
@@ -89,7 +89,7 @@
     } {
         set domain [get_parameter -name "BounceDomain"]
         if { [empty_string_p $domain] } {
-	    set domain [ad_url]
+	    regsub {http://} [ns_config ns/server/[ns_info server]/module/nssock hostname] {} domain
 	}
 	return $domain
     }