[- $args = shift @param; $theme = $args->{theme}; @subscribed = @{ $args->{folders} }; @folders = grep { $_ ne $EMU::inbox && $_ ne 'Search Results' && !$EMU::userdb{"folder:$_:external"} } &EMU::get_folders(1); ($i_total, $i_unread, $i_read, $i_answered, $i_size) = &EMU::get_folder_msginfo('INBOX'); $i_size = &EMU::get_size($size) if ($size); $i_total = &EMU::commas($i_total) if ($i_total); $i_unread = &EMU::commas($i_unread) if ($i_unread); -]