436
@verb #119:"get_headers" this none this rxdo #9682
@program #119:"get_headers" this none this
caller != this && caller:isa(#120) == 0 && raise(E_PERM)
"Gimme range-range or just a number."
if (index(args[1], "-"))
  range = $su:explode(args[1], "-")
else
  range = {args[1], args[1]}
endif
range = {toint(range[1]), toint(range[2])}
if (range[1] == range[2])
  foo = {{@caller.group:headers_in_seq(caller.group:get_num(range[1])), range[1]}}
  return foo
else
  foo = caller.group:headers_in_seq({caller.group:get_num(range[1]), caller.group:get_num(range[2])})
  for x in [1..length(foo)]
    foo[x] = {@foo[x], range[1] - 1 + x}
  endfor
  foo = {@foo, {@caller.group:headers_in_seq(caller.group:get_num(range[2])), range[2]}}
  "For a range of messages. I have absolutely no idea of how to do this."
  for x in [1..length(foo)]
    for y in [1..length(foo[x][2])]
      foo[x][2][y] = `strsub(foo[x][2][y], "~", "~7E") ! ANY => foo[x][2][y]'
    endfor
  endfor
  return foo
endif
"Last modified by Dax (#789) on Tue May  3 14:13:04 2005 MDT."
.

0