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.9 -r1.10
--- openacs-4/packages/mail-tracking/lib/messages.tcl	30 Sep 2005 17:34:38 -0000	1.9
+++ openacs-4/packages/mail-tracking/lib/messages.tcl	4 Oct 2005 16:32:07 -0000	1.10
@@ -3,6 +3,7 @@
 # recipient_id - to filter mails for a single receiver
 # sender_id - to filter mails for a single sender
 # package_id to filter mails for a package instance
+# object_id to filter mails for a object_id
 
 
 ad_page_contract {
@@ -15,6 +16,7 @@
     {emp_mail_f:optional 1}
     sender_id:optional
     package_id:optional
+    object_id:optional
     {orderby:optional "recipient_id"}
 } -properties {
     acs_mail_log:multirow 
@@ -30,6 +32,10 @@
 		     label "[_ mail-tracking.Sender]"
 		     where_clause "sender_id = :sender_id"
 		 } \
+		 object_id {
+		     label "[_ mail-trackin.Object_id]"
+		     where_clause "object_id = :object_id"
+		 } \
 		 package_id {
 		     label "[_ mail-tracking.Package]"
 		     where_clause "package_id = :package_id"