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.16 -r1.17
--- openacs-4/packages/acs-mail-lite/lib/email.tcl	24 Oct 2005 15:27:59 -0000	1.16
+++ openacs-4/packages/acs-mail-lite/lib/email.tcl	18 Dec 2005 14:16:27 -0000	1.17
@@ -93,9 +93,9 @@
 if { [exists_and_not_null file_ids] } {
     set files [list]
     foreach file $file_ids {
-	set file_title [lang::util::localize [db_string get_file_title { } -default "[_ acs-mail-lite.Untitled]"]]
+	set file_title [lang::util::localize [content::item::get_title -item_id $file]]
 	if { $tracking_p } {
-	    lappend files "<a href=\"/tracking/download/$file_title?version_id=$file\">$file_title</a> "
+	    lappend files "<a href=\"/tracking/download/$file_title?file_id=$file\">$file_title</a> "
 	} else {
 	    lappend files "$file_title "
 	}