+# Loosy encoding
+sub commandA6 {
+ print "Enable this option if you want to allow loosy charset encoding in message\n";
+ print "composition pages. This option allows charset conversions when output\n";
+ print "charset does not support all symbols used in original charset. Symbols\n";
+ print "unsupported by output charset will be replaced with question marks.\n";
+ print "\n";
+
+ if ( lc($loosy_encoding) eq 'true' ) {
+ $default_value = "y";
+ } else {
+ $default_value = "n";
+ }
+ print "Enable loosy encoding? (y/n) [$WHT$default_value$NRM]: $WHT";
+ $loosy_encoding = <STDIN>;
+ if ( ( $loosy_encoding =~ /^y\n/i ) || ( ( $loosy_encoding =~ /^\n/ ) && ( $default_value eq "y" ) ) ) {
+ $loosy_encoding = 'true';
+ } else {
+ $loosy_encoding = 'false';
+ }
+ return $loosy_encoding;
+}
+
+