+#noselect fix
+sub command216 {
+ print "Some IMAP server allow subfolders to exist even if the parent\n";
+ print "folders do not. This fixes some problems with the folder list\n";
+ print "when this is the case, causing the /NoSelect folders to be displayed\n";
+ print "\n";
+
+ if ( lc($noselect_fix_enable) eq "true" ) {
+ $default_value = "y";
+ } else {
+ $default_value = "n";
+ }
+ print "enable noselect fix? (y/n) [$WHT$noselect_fix_enable$NRM]: $WHT";
+ $noselect_fix_enable = <STDIN>;
+ if ( ( $noselect_fix_enable =~ /^y\n/i ) || ( ( $noselect_fix_enable =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
+ $noselect_fix_enable = "true";
+ } else {
+ $noselect_fix_enable = "false";
+ }
+ return $noselect_fix_enable;
+}