+ } elsif ( $imap_server_type == "uw" ) {
+ print "UW IMAP servers will not allow folders containing";
+ print "mail to also contain folders.\n";
+ print "Deleting folders will bypass the trash folder and";
+ print "be immediately deleted\n\n";
+ print "If this is not the correct value for your server,\n";
+ print "please use option D on the Main Menu to configure your server correctly.\n\n";
+ print "Press any key to continue...\n";
+ $new_delete = <STDIN>;
+ $delete_folder = "true";
+ } else {
+ print "Should folders selected for deletion bypass the Trash folder?\n\n";
+ if ( lc($delete_folder) eq "true" ) {
+ $default_value = "y";
+ } else {
+ $default_value = "n";
+ }
+ print "Auto delete folders? (y/n) [$WHT$default_value$NRM]: $WHT";
+ $new_delete = <STDIN>;
+ if ( ( $new_delete =~ /^y\n/i ) || ( ( $new_delete =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
+ $delete_folder = "true";
+ } else {
+ $delete_folder = "false";
+ }