Switch to edit mode.
Name(s): msgid1: if (`args[2][1] == "<" ! ANY => 0')
2: return args[2]
3: endif
4: {group, NUM, time} = args
5: try
6: header = toobj(group):headers_in_seq(toobj(group):get_num(toint(NUM)))
7: except (ANY)
8: header = {}
9: endtry
10: if (!header)
11: group = tostr(toint(group))
12: NUM = tostr(NUM)
13: else
14: time = header[2][1]
15: to = header[2][3]
16: to = strsub(to, "and", "")
17: to = $su:explode(to, " ")
18: group = {}
19: for x in (to)
20: if (x[1..1] == "*")
21: if (`valid(foo = $mail_agent:match_recipient(x)) ! ANY => 0' && `foo:isa(#46) ! ANY => 0')
22: group = {@group, {$mail_agent:match_recipient(x), 0}}
23: group[$][2] = group[$][1]:length_date_le(header[2][1])
24: endif
25: endif
26: endfor
27: group = $list_utils:sort_alist(group)
28: groupstr = ""
29: NUM = ""
30: for x in [1..length(group)]
31: groupstr = groupstr == "" ? toint(group[x][1]) | tostr(groupstr, ",", toint(group[x][1]))
32: NUM = NUM == "" ? group[x][2] | tostr(NUM, ",", group[x][2])
33: endfor
34: group = groupstr
35: endif
36: return tostr("<", group, "#", NUM, "#", time, "@moo.ca>")
37: "Last modified by Dax (#789) on Tue May 3 14:11:55 2005 MDT."