Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/contacts/lib/email.tcl	19 Sep 2005 12:19:33 -0000	1.10
+++ openacs-4/packages/contacts/lib/email.tcl	25 Sep 2005 12:40:39 -0000	1.11
@@ -152,8 +152,8 @@
 		set locale [lang::user::site_wide_locale -user_id $user_id]
 	    }
 	    set date [lc_time_fmt [join [template::util::date::get_property linear_date_no_time $date] "-"] "%q" "$locale"]
-	    set revision_id [contact::live_revision -party_id $party_id]
-	    set salutation [ams::value -attribute_name "salutation" -object_id $revision_id -locale $locale]
+	    set party_revision_id [contact::live_revision -party_id $party_id]
+	    set salutation [ams::value -attribute_name "salutation" -object_id $party_revision_id -locale $locale]
 	    foreach element [list first_names last_name name date salutation] {
 		lappend values [list "{$element}" [set $element]]
 	    }