summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorGianni Ceccarelli <gianni.ceccarelli@broadbean.com>2023-01-19 17:28:24 +0000
committerGianni Ceccarelli <gianni.ceccarelli@broadbean.com>2023-01-19 17:28:24 +0000
commit8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f (patch)
tree74c63fe22ab00246e1557bfa9e0b762299844af5 /lib
parentupdate for Claws Mail 3.16 (diff)
downloadconfig-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
Diffstat (limited to 'lib')
-rw-r--r--lib/Config/ClawsMail.pm2
-rw-r--r--lib/Config/ClawsMail/Account.pm2
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},