Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	28 May 2006 07:17:27 -0000	1.6
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	14 Nov 2006 07:17:56 -0000	1.7
@@ -73,3 +73,18 @@
 		    -subject $subject]
 
 }
+
+ad_proc -public -callback fs::file_delete -impl mail-tracking {
+    {-package_id:required}
+    {-file_id:required}
+} {
+    Create a copy of the file and attach it to the mail-tracking entry, if the file is referenced
+} {
+
+    if {[db_string file_attached_p "select 1 from acs_mail_log_attachment_map where file_id = :file_id" -default 0]} {
+	set package_id [apm_package_id_from_key mail-tracking]
+	set new_file_id [fs::file_copy -file_id $file_id -target_folder_id $package_id]
+	db_dml update_file "update acs_mail_log_attachment_map set file_id = :new_file_id where file_id = :file_id"
+    }
+}
+    
\ No newline at end of file