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/Account.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Config/ClawsMail/Account.pm')

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