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.6 -r1.6.2.1
--- openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	30 Mar 2013 19:07:23 -0000	1.6
+++ openacs-4/packages/acs-mail-lite/tcl/incoming-mail-procs.tcl	2 Oct 2013 10:02:28 -0000	1.6.2.1
@@ -19,7 +19,7 @@
     } {
         set domain [parameter::get_from_package_key -package_key "acs-mail-lite" -parameter "BounceDomain"]
         if { $domain eq "" } {
-	    regsub {http://} [ns_config ns/server/[ns_info server]/module/nssock hostname] {} domain
+	    regsub {http://} [ns_config [ns_driversection -driver nssock] hostname] _ domain
 	}
 	return $domain
     }
@@ -237,7 +237,7 @@
 		array set param $params
 
 		# Append the file if there exist a filename to use. Otherwise do not append
-		if {[exists_and_not_null param(name)]} {
+		if {([info exists param(name)] && $param(name) ne "")} {
 		    set filename $param(name)
 
 		    # Determine the content_type