4b3
@verb #119:"msgid" this none this rxdo #9682
@program #119:"msgid" this none this
if (`args[2][1] == "<" ! ANY => 0')
  return args[2]
endif
{group, NUM, time} = args
try
  header = toobj(group):headers_in_seq(toobj(group):get_num(toint(NUM)))
except (ANY)
  header = {}
endtry
if (!header)
  group = tostr(toint(group))
  NUM = tostr(NUM)
else
  time = header[2][1]
  to = header[2][3]
  to = strsub(to, "and", "")
  to = $su:explode(to, " ")
  group = {}
  for x in (to)
    if (x[1..1] == "*")
      if (`valid(foo = $mail_agent:match_recipient(x)) ! ANY => 0' && `foo:isa(#46) ! ANY => 0')
        group = {@group, {$mail_agent:match_recipient(x), 0}}
        group[$][2] = group[$][1]:length_date_le(header[2][1])
      endif
    endif
  endfor
  group = $list_utils:sort_alist(group)
  groupstr = ""
  NUM = ""
  for x in [1..length(group)]
    groupstr = groupstr == "" ? toint(group[x][1]) | tostr(groupstr, ",", toint(group[x][1]))
    NUM = NUM == "" ? group[x][2] | tostr(NUM, ",", group[x][2])
  endfor
  group = groupstr
endif
return tostr("<", group, "#", NUM, "#", time, "@moo.ca>")
"Last modified by Dax (#789) on Tue May  3 14:11:55 2005 MDT."
.

0