not all types need the password removed in the url: don't die on other

markov2 · May 3, 2019 · e5689f1 · e5689f1
1 parent 85fb699
commit e5689f1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/lib/Mail/Box/Manager.pm b/lib/Mail/Box/Manager.pm
@@ -375,6 +375,7 @@ sub open(@)
         $args{folder} = $name;
     }
 
+    # Do not show password in folder name
     my $type = $args{type};
     if(!defined $type) { ; }
     elsif($type eq 'pop3' || $type eq 'pop')
@@ -401,10 +402,6 @@ sub open(@)
         my $port = $args{server_port} ||= 993;
         $args{folderdir} = $name = "imap4s://$un\@$srv:$port";
     }
-    else
-    {   $self->log(ERROR => "Unknown folder type '$type'.");
-        return undef;
-    }
 
     unless(defined $name && length $name)
     {   $self->log(ERROR => "No foldername specified to open.");

diff --git a/lib/Mail/Box/Net.pm b/lib/Mail/Box/Net.pm
@@ -39,12 +39,10 @@ At the moment, this object is extended by
 =over 4
 
 =item * M<Mail::Box::POP3>
-
 Implements the POP3 protocol.
 
 =item * M<Mail::Box::IMAP4>
-
-Implements the IMAP4 protocol.  B<UNDER DEVELOPMENT>
+Implements the IMAP4 protocol.
 
 =back