Index: openacs.org-dev/packages/webmail/www/message-send-add-attachment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/webmail/www/message-send-add-attachment.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/webmail/www/message-send-add-attachment.tcl	9 Jul 2002 17:35:19 -0000	1.1.1.1
+++ openacs.org-dev/packages/webmail/www/message-send-add-attachment.tcl	8 Oct 2002 15:47:44 -0000	1.1.1.2
@@ -23,18 +23,18 @@
     set errmsg "The message to which you are attempting to attach a file 
 is no longer valid.  Maybe you already sent it away, 
 or you waited too long."
-    ad_returnredirect "attachments-error.tcl?[export_url_vars errmsg outgoing_msg_id]"
-    return
+    ad_returnredirect "attachments-error?[export_url_vars errmsg outgoing_msg_id]"
+    ad_script_abort
 } elseif { $creation_user != $user_id } {
     set errmsg "You do not have permission to attach a file to this message."
-    ad_returnredirect "attachments-error.tcl?[export_url_vars errmsg outgoing_msg_id]"
-    return
+    ad_returnredirect "attachments-error?[export_url_vars errmsg outgoing_msg_id]"
+    ad_script_abort
 }
 
 if { [empty_string_p $upload_file] } {
     set errmsg "You must specify a file to attach."
-    ad_returnredirect "attachments-error.tcl?[export_url_vars errmsg outgoing_msg_id]"
-    return
+    ad_returnredirect "attachments-error?[export_url_vars errmsg outgoing_msg_id]"
+    ad_script_abort
 }
 
 set tmp_filename [ns_queryget upload_file.tmpfile]