Index: openacs.org-dev/packages/webmail/www/folder-change-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/webmail/www/folder-change-2.tcl,v diff -u -r1.1.1.1 -r1.1.1.2 --- openacs.org-dev/packages/webmail/www/folder-change-2.tcl 9 Jul 2002 17:35:18 -0000 1.1.1.1 +++ openacs.org-dev/packages/webmail/www/folder-change-2.tcl 8 Oct 2002 15:47:44 -0000 1.1.1.2 @@ -26,7 +26,7 @@ if { [wm_mailbox_name_reserved $folder_name] } { wm_return_error "You are not allowed to delete the following mailboxes: [wm_mailbox_name_for_display INBOX], [wm_mailbox_name_for_display DRAFTS], [wm_mailbox_name_for_display SENT], [wm_mailbox_name_for_display TRASH] and SYSTEM." - return + ad_script_abort } with_catch errmsg { db_dml folder_mailbox_delete " @@ -35,7 +35,7 @@ wm_return_error "There was an error deleting your folder: $errmsg" - return + ad_script_abort } ad_set_client_property -persistent f "webmail" "mailbox_list" "" ad_returnredirect "folder-index" @@ -49,10 +49,10 @@ wm_return_error "There was an error deleting your folder: $errmsg" - return + ad_script_abort } ad_returnredirect $target - return + ad_script_abort }