Exclude from virtual folder list mails that no longer exist

diff --git a/mailboxes/folders-lib.pl b/mailboxes/folders-lib.pl
index 1d489e0..fc2e3d2 100644 (file)
--- a/mailboxes/folders-lib.pl
+++ b/mailboxes/folders-lib.pl
@@ -288,6 +288,9 @@ elsif ($_[2]->{'type'} == 6) {
                $folder->{'members'} = $mems;
                &save_folder($folder, $folder);
                }
+
+       # Filter out messages that don't exist anymore
+       @mail = grep { defined($_) } @mail;
        return @mail;
        }
 }