Index: openacs-4/packages/mail-tracking/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/lib/messages.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/mail-tracking/lib/messages.tcl	15 Jun 2005 16:24:22 -0000	1.3
+++ openacs-4/packages/mail-tracking/lib/messages.tcl	15 Jun 2005 17:08:44 -0000	1.4
@@ -97,6 +97,9 @@
 	set package_url ""
     }
     set file_ids [application_data_link::get_linked -from_object_id $log_id -to_object_type "file_storage_object"]
+    foreach file_id [application_data_link::get_linked -from_object_id $log_id -to_object_type "image"] {
+	lappend file_ids $file_id
+    }
 }
  
 ad_return_template
\ No newline at end of file