Index: openacs-4/packages/acs-mail-lite/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/lib/Attic/email.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	18 Dec 2005 14:16:27 -0000	1.17
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	27 Dec 2005 20:20:53 -0000	1.18
@@ -94,6 +94,9 @@
     set files [list]
     foreach file $file_ids {
 	set file_title [lang::util::localize [content::item::get_title -item_id $file]]
+	if {[empty_string_p $file_title]} {
+	    set file_title "empty"
+	}
 	if { $tracking_p } {
 	    lappend files "<a href=\"/tracking/download/$file_title?file_id=$file\">$file_title</a> "
 	} else {
@@ -103,7 +106,8 @@
     set files [join $files ", "]
 
     append form_elements {
-        {files_ids:text(inform),optional {label "[_ acs-mail-lite.Associated_files]"} {value $files}}
+        {file_ids:text(hidden) {value $file_ids}}
+        {files:text(inform),optional {label "[_ acs-mail-lite.Associated_files]"} {value $files}}
     }
 }