diff options
-rw-r--r-- | lib/Config/ClawsMail.pm | 2 | ||||
-rw-r--r-- | lib/Config/ClawsMail/Account.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/Config/ClawsMail.pm b/lib/Config/ClawsMail.pm index 9c11636..848113e 100644 --- a/lib/Config/ClawsMail.pm +++ b/lib/Config/ClawsMail.pm @@ -36,7 +36,7 @@ sub BUILDARGS { for my $account_id (keys %{$config_hash}) { my $account_conf = $config_hash->{$account_id}; my $password_conf = $password_hash->{$account_id}; - my $account = Config::ClawsMail::Account->new_from_config($account_conf,$password_conf); + my $account = Config::ClawsMail::Account->new_from_config($account_conf,$password_conf) or next; $args->{accounts}{$account->account_name} = $account; } diff --git a/lib/Config/ClawsMail/Account.pm b/lib/Config/ClawsMail/Account.pm index 6cd291f..2c538a2 100644 --- a/lib/Config/ClawsMail/Account.pm +++ b/lib/Config/ClawsMail/Account.pm @@ -22,7 +22,7 @@ has [qw(imap smtp)] => ( my @ssl_string=qw(no ssl starttls); sub new_from_config { my ($class,$config,$password) = @_; - die "unhandled protocol" unless $config->{protocol} eq '1'; + return unless $config->{protocol} eq '1'; my $imap_server = Config::ClawsMail::Server->new({ host => $config->{receive_server}, |