[- $args = shift @param; # We were passed the subscribed folders @subscribed = @{ $args->{folders} }; # This get_folders should be calling up cached data since we recently did a Folder Manager request. foreach my $f (&EMU::get_folders()) { if ($f ne $EMU::inbox && $f ne 'Search Results' && !$EMU::userdb{"folder:$f:external"} && !grep($_ eq $f, @subscribed)) { push(@unsubscribed, $f); } } -]