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.10 -r1.11
--- openacs-4/packages/mail-tracking/lib/messages.tcl	4 Oct 2005 16:32:07 -0000	1.10
+++ openacs-4/packages/mail-tracking/lib/messages.tcl	4 Oct 2005 16:43:05 -0000	1.11
@@ -1,9 +1,10 @@
 # Expects the following optional parameters (in each combination):
 #
-# 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
+# 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
+# show_filter_p - to show or not the filters in the inlcude, default to "t"
 
 
 ad_page_contract {
@@ -19,13 +20,17 @@
     object_id:optional
     {orderby:optional "recipient_id"}
 } -properties {
+    show_filter_p
     acs_mail_log:multirow 
     context:onevalue
 }
 
 set page_title [ad_conn instance_name]
 set context [list "index"]
 
+if { ![exists_and_not_null show_filter_p] } {
+    set show_filter_p "t"
+}
 
 set filters [list \
 		 sender_id {