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.4 -r1.5
--- openacs-4/packages/mail-tracking/lib/messages.tcl	15 Jun 2005 17:08:44 -0000	1.4
+++ openacs-4/packages/mail-tracking/lib/messages.tcl	16 Jun 2005 08:52:48 -0000	1.5
@@ -83,12 +83,9 @@
 
 db_multirow -extend { file_ids sender receiver package_name package_url } messages select_messages {} {
 
-    acs_user::get -user_id $sender_id -array sender_info
-    acs_user::get -user_id $recipient_id -array receiver_info
+    set sender [person::name -person_id $sender_id]
+    set receiver [person::name -person_id $recipient_id]
 
-    set sender "$sender_info(first_names) $sender_info(last_name)"
-    set receiver "$receiver_info(first_names) $receiver_info(last_name)"
-
     if {[exists_and_not_null $package_id]} {
 	set package_name [apm_instance_name_from_id $package_id]
 	set package_url [apm_package_url_from_id $package_id]