From e66df37bf5f9cf55496bc3b3562806fcca0ea4e7 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sat, 7 Jan 2023 21:18:33 -0800
Subject: [PATCH] Fix perl warning

---
 mailbox/index.cgi | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/mailbox/index.cgi b/mailbox/index.cgi
index eae71771..8744b447 100755
--- a/mailbox/index.cgi
+++ b/mailbox/index.cgi
@@ -26,7 +26,11 @@ elsif (!defined($in{'folder'}) && $userconfig{'default_folder'}) {
 	my $df = &find_named_folder($userconfig{'default_folder'}, \@folders);
 	$in{'folder'} = $df->{'index'} if ($df);
 	}
+
 # Get the folder by index
+if (!defined($in{'folder'})) {
+	$in{'folder'} = 0;
+	}
 my ($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
 
 # Show page header