[- $args = shift @param; $message = &EMU::get_var('data') || $EMU::query->param('message'); @headers = qw/cc bcc from replyto priority org attach/; @headers = grep (&EMU::get_var("$_.show"), @headers); $base_URI = $ENV{REQUEST_URI}; $base_URI = substr($base_URI, 0, index($base_URI,"?")) if (index($base_URI,"?")); @data = &EMU::get_priority_data(); @parray = @{ $data[0] }; %phash = %{ $data[1] }; $priority = &EMU::get_var('priority') || $parray[2]; @drafts = &EMU::get_postponed_msgs(); $attachments = &EMU::get_var('here_atts'); $theme = $args->{theme}; $load_editor = ($EMU::c{'reditor'} ne '0' && ($ENV{HTTP_USER_AGENT} =~ /MSIE/i || $ENV{HTTP_USER_AGENT} =~ /Gecko/i)); -]