Index: openacs-4/packages/mail-tracking/www/one-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/mail-tracking/www/one-message.tcl	27 Nov 2006 13:37:27 -0000	1.10
+++ openacs-4/packages/mail-tracking/www/one-message.tcl	29 Aug 2007 15:00:16 -0000	1.11
@@ -17,7 +17,6 @@
 }
 
 # We need to figure out a way to detect which contacts package a party_id belongs to
-set contacts_package_id [apm_package_id_from_key contacts]
 
 set page_title "[_ mail-tracking.One_message]"
 set context [list]
@@ -36,6 +35,7 @@
 }
 
 if {[exists_and_not_null sender_id]} {
+    set contacts_package_id [contact::package_id -party_id $sender_id]
     if {$contacts_package_id} {
 	set sender "<a href=\"[contact::url -party_id $sender_id  -package_id $contacts_package_id]\">[party::name -party_id $sender_id]</a>"
     } else {
@@ -99,4 +99,4 @@
 
 if {![ad_looks_like_html_p $body]} {
     set body "<pre>$body</pre>"
-}
\ No newline at end of file
+}