Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/contacts/lib/email.tcl	29 Jan 2006 16:09:49 -0000	1.16
+++ openacs-4/packages/contacts/lib/email.tcl	31 Jan 2006 11:40:44 -0000	1.17
@@ -210,13 +210,12 @@
 		set name "$employee(person_title) $first_names $last_name"
 		set salutation $employee(salutation)
 		set locale $employee(locale)
-		set to_addr $employee(email)
 	    } else {
 		set name [contact::name -party_id $party_id]
-		set to_addr [cc_email_from_party $party_id]
 		set salutation "Dear ladies and gentlemen"
 		set locale [lang::user::site_wide_locale -user_id $party_id]
 	    }
+	    set to_addr [cc_email_from_party $party_id]
 	    set date [lc_time_fmt [dt_sysdate] "%q"]
 	    set to $name