Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/contacts/lib/email.tcl	12 Jun 2006 07:57:08 -0000	1.28
+++ openacs-4/packages/contacts/lib/email.tcl	8 Sep 2006 13:49:54 -0000	1.29
@@ -251,6 +251,8 @@
 	}
 	
 	set locale [lang::system::site_wide_locale]
+
+	ad_returnredirect $return_url
 	
 	# Send the mail to all parties.
 	foreach party_id $to {
@@ -338,7 +340,6 @@
         util_user_message -html -message "[_ contacts.Your_message_was_sent_to_-recipients-]"
 
     } -after_submit {
-	ad_returnredirect $return_url
 	ad_script_abort
     }