From cff31c271c0434bd521b7512ec57923ca70a497b Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Mon, 17 Jun 2024 10:08:38 -0700
Subject: [PATCH] Spam folder might be named .spam

---
 mailbox/mailbox-lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mailbox/mailbox-lib.pl b/mailbox/mailbox-lib.pl
index e73062ed..dff1c8c3 100755
--- a/mailbox/mailbox-lib.pl
+++ b/mailbox/mailbox-lib.pl
@@ -679,7 +679,7 @@ sub list_folders
 	if ($file) {
 		if ($config{'mail_system'} == 4) {
 			# In IMAP mode, the first folder named spam is marked
-			my ($sf) = grep { lc($_->{'name'}) eq 'spam' } @rv;
+			my ($sf) = grep { $_->{'name'} =~ /^\.?spam$/i } @rv;
 			if ($sf) {
 				$sf->{'spam'} = 1;
 				}