[- $args = shift @param; # Get all external folders! @folders = grep { ($_ ne &EMU::get_var('inbox')) && $EMU::userdb{"folder:$_:external"} } &EMU::get_folders(); $theme = $args->{theme}; -]