From 8f0fb62bbaf4ae08b025bb9f4febdb5732b8c22f Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
Date: Thu, 19 Jan 2023 17:28:24 +0000
Subject: cope with other account types/protocols

"4" means "smtp only", but it confuses other bits, so let's just skip
---
 lib/Config/ClawsMail.pm         | 2 +-
 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},
-- 
cgit v1.2.3