283
@verb #119:"_match" this none this rxdo #9682
@program #119:"_match" this none this
":_match(<msg id>|article number) => {{groups}, {msgs}}"
{what} = args
if (what[1] == "<")
  what = what[2..$ - 1]
  what = what[1..index(what, "@moo") - 1]
  what = $su:explode(what, "#")
  groups = $su:explode(what[1], ",")
  for x in [1..length(groups)]
    groups[x] = toobj(groups[x])
  endfor
  msgs = $su:explode(what[2], ",")
  for x in [1..length(msgs)]
    msgs[x] = toint(msgs[x])
  endfor
  return {groups, msgs}
endif
return {{caller.group}, {toint(args[1])}}
"Last modified by Dax (#789) on Tue May  3 14:13:04 2005 MDT."
.

0