
  PROCEDURE [INLINE] clp$find_unseen_mail_action
    (VAR unseen_mail_action: ^clt$unseen_mail_action);

?? PUSH (LISTEXT := ON) ??

    VAR
      ignore_object_in_current_task: boolean,
      object: ^clt$environment_object_contents;


    clp$find_environment_object (clc$eo_unseen_mail_action, object,
          ignore_object_in_current_task);

    unseen_mail_action := object;

  PROCEND clp$find_unseen_mail_action;

*copyc clt$unseen_mail_action
?? POP ??
*copyc clp$find_environment_object
