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.5 -r1.6
--- openacs-4/packages/contacts/www/mail-tracking.tcl	28 Oct 2005 17:57:18 -0000	1.5
+++ openacs-4/packages/contacts/www/mail-tracking.tcl	15 Feb 2006 10:06:36 -0000	1.6
@@ -8,14 +8,16 @@
     {page "1"}
 }
 
+if {![exists_and_not_null party_id]} {
+    set party_id $sender_id
+}
+contact::require_visiblity -party_id $party_id
+
 foreach optional_param {sender_id recipient_id page page_size page_flush_p orderby object_id emp_mail_f} {
     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
+ad_return_template