diff options
| author | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2023-01-19 17:28:24 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2023-01-19 17:28:24 +0000 |
| commit | 8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f (patch) | |
| tree | 74c63fe22ab00246e1557bfa9e0b762299844af5 | |
| parent | update for Claws Mail 3.16 (diff) | |
| download | config-clawsmail-8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f.tar.gz config-clawsmail-8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f.tar.bz2 config-clawsmail-8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f.zip | |
cope with other account types/protocols
"4" means "smtp only", but it confuses other bits, so let's just skip
| -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}, |