Index: openacs.org-dev/packages/webmail/www/folder-create-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/webmail/www/folder-create-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/webmail/www/folder-create-2.tcl	9 Jul 2002 17:35:18 -0000	1.1.1.1
+++ openacs.org-dev/packages/webmail/www/folder-create-2.tcl	8 Oct 2002 15:47:44 -0000	1.1.1.2
@@ -16,13 +16,13 @@
 
 if { [string length $folder_name] > 50 } {
     wm_return_error "The folder name you entered ($folder_name) was invalid.  Please hit back and try again (the length limit is 50 characters)"
-    return
+    ad_script_abort
 } 
 
 if { [string equal $folder_name SYSTEM] } {
     wm_return_error "We're sorry, you are not allowed to create a mailbox named SYSTEM.
 Please hit back and try another name."
-    return
+    ad_script_abort
 }
 db_transaction {
     set mailbox_id [db_nextval wm_global_sequence]
@@ -33,12 +33,12 @@
 } on_error {
     if { [regexp -nocase {WM_MAILBOXES_USER_NAME_UN} $errmsg] } {
 	wm_return_error "A mailbox already exists with that name"
-	return
+        ad_script_abort
     }
     wm_return_error "An error occured while trying to create your folder:
 $errmsg
 "
-    return
+    ad_script_abort
 }
 
 ad_set_client_property -persistent f "webmail" "mailbox_list" ""