Index: openacs-4/packages/contacts/www/mail-tracking.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/mail-tracking.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/mail-tracking.tcl	19 Oct 2005 17:01:38 -0000	1.1
+++ openacs-4/packages/contacts/www/mail-tracking.tcl	20 Oct 2005 16:05:34 -0000	1.2
@@ -3,14 +3,17 @@
     @author Al-Faisal El-Dajani (faisal.dajani@gmail.com)
     @creation-date 2005-10-18
 } {
-    {party_id:integer}
+    {party_id ""}
+}
 
-} -validate {
-    contact_exists -requires {party_id} {
-	if {![contact::exists_p -party_id $party_id]} {
-	    ad_complain "[_ contacts.lt_The_contact_specified]"
-	}
+foreach optional_param {sender_id recipient_id page page_size page_flush_p orderby object_id} {
+    if {![info exists $optional_param]} {
+	set $optional_param {}
     }
 }
-#??
+
+if {![exists_and_not_null party_id]} {
+    set party_id $sender_id
+}
+
 ad_return_template
\ No newline at end of file