Index: openacs-4/packages/contacts/tcl/contact-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-message-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl	20 Feb 2006 09:13:58 -0000	1.22
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl	20 Feb 2006 10:55:48 -0000	1.23
@@ -181,7 +181,7 @@
 	# if this person is the employee of
         # an organization we can attempt to use
         # that organizations email address
-	foreach employer_id [contact::util::get_employers] {
+	foreach employer_id [contact::util::get_employers -employee_id $party_id] {
 	    set email [contact::email -party_id $employer_id]
 	    if { $email ne "" } {
 		break
@@ -241,7 +241,7 @@
 	# if this person is the employee of
         # an organization we can attempt to use
         # that organizations email address
-	foreach employer_id [contact::util::get_employers] {
+	foreach employer_id [contact::util::get_employers -employee_id $party_id] {
 	    set mailing_address [contact::message::mailing_address -party_id $employer_id -package_id $package_id]
 	    if { $mailing_address ne "" } {
 		break