View/Edit #47:headers_in_seq

Name(s): headers_in_seq

1:  "Copied from Disk-based Mail Agent (#115):headers_in_seq by whiz.kid (#3135) Feb 10 12:03:58 1998"
2:  ":messages_in_seq(msg_seq) => list of messages in msg_seq on folder (caller)"
3:  set_task_perms(caller_perms())
4:  if (typeof(msgs = args[1]) != $LIST)
5:    return caller.messages[$list_utils:iassoc(msgs, caller.messages)]
6:  else
7:    victim = {}
8:    for x in ($seq_utils:tolist(msgs))
9:      $command_utils:suspend_if_needed(0)
10:     victim = `{@victim, caller.messages[$list_utils:iassoc(x, caller.messages)]} ! E_RANGE => victim'
11:   endfor
12:   return victim
13: endif
14: "Last modified by MadHatter (#8371) on Sat Jul  6 14:31:23 2002 MDT."
15: "This verb previously owned by whiz (#3135), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:03 2002 MDT)."
16: "Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.