
  PROCEDURE [INLINE] pmp$propagate_unseen_mail
    (VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

    status.normal := TRUE;
    pmp$schedule_unseen_mail;
    pmp$cause_task_condition (osc$unseen_mail_condition, NIL, TRUE, FALSE,
          FALSE, TRUE, status);

  PROCEND pmp$propagate_unseen_mail;

*copyc osc$unseen_mail_condition
*copyc ost$status
*copyc pmp$cause_task_condition
*copyc pmp$schedule_unseen_mail
?? POP ??
