%; $Header: /mh/jerry/RCS/scan.rfl 1.3 1997/01/13 17:12:04 jerry Exp $
%; scan.rfl - indicate messages that are digests made with rfl
%4(msg)%<(cur)+%| %>%<{replied}-%?(unseen)U%| %>\
%02(mon{date})/%02(mday{date})%<{date} %|*%>\
%<(mymbox{from})To:%14(friendly{to})\
%|%17(friendly{from})%>\
  %{subject}%<{x-mhglue} **rfl digest**%|%<{body}<<%{body}>>%>%>