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.2 -r1.3
--- openacs-4/packages/contacts/lib/email.tcl	15 Jun 2005 22:13:38 -0000	1.2
+++ openacs-4/packages/contacts/lib/email.tcl	16 Jun 2005 08:53:44 -0000	1.3
@@ -50,7 +50,7 @@
     -name email \
     -cancel_label "[_ contacts.Cancel]" \
     -cancel_url $return_url \
-    -edit_buttons {{"Send" send} {"Preview" preview}} \
+    -edit_buttons {{"Send" send}} \
     -form $form_elements \
     -on_request {
     } -new_request {
@@ -91,7 +91,6 @@
 	}
 
 	foreach party_id $party_ids {
-	    set party_id 490
 	    set name [contact::name -party_id $party_id]
 	    set first_names [lindex $name 0]
 	    set last_name [lindex $name 1]