Index: openacs-4/packages/acs-subsite/www/shared/send-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/send-email.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/www/shared/send-email.tcl	10 Sep 2002 22:22:13 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/shared/send-email.tcl	18 Sep 2002 12:16:50 -0000	1.3
@@ -26,13 +26,11 @@
 if [catch {ns_sendmail $email $email_from $subject $message} errmsg] {
     ad_return_error $error_subject "$error_message:
     <blockquote><pre>[ad_quotehtml $errmsg]</pre></blockquote>"
-    return
+    ad_script_abort
 }
 
 if { $show_sent_message_p != "t" } {
     # Do not show any message. Just go to return url
     ad_returnredirect $return_url
-    return
+    ad_script_abort
 }
-
-ad_return_template
\ No newline at end of file