
  PROCEDURE [XREF] clp$eo_pop_unseen_mail_action
    (    pop_reason: clt$env_object_pop_reason;
         object: ^clt$environment_object_contents;
         object_in_current_task: boolean;
         pushed_object_in_current_task: boolean;
         pushed_object: ^clt$environment_object_contents;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$environment_object_contents
*copyc clt$env_object_pop_reason
*copyc ost$status
?? POP ??
