Switch to edit mode.
Name(s): @mm1: "Copied from Generic Player (#12):@Nn by manta (#7165)Feb 1 15:10:24 2001"
2: "@nn - Next New"
3: "Read the next new message on you or your subscribed mailing lists."
4: set_task_perms(player)
5: skipstr = ""
6: who = valid(x = `this.mail_identity ! E_PROPNF => #-1') ? x | this
7: cm = who.current_message
8: cm[1..2] = {{this, @cm[1..2]}}
9: for n in (cm)
10: if (!$mail_agent:is_recipient(n[1]))
11: this:tell("Removing bogus recipient: ", $string_utils:nn(n[1]))
12: who.current_message = setremove(who.current_message, n)
13: continue
14: elseif (new = n[1]:length_date_gt(n[3]))
15: next = n[1]:get_num(n[1]:length_all_msgs() - new + 1)
16: who:set_current_folder(folder = n[1])
17: "Initial Kill List hack by BenC"
18: for dumbass in (player._kill)
19: if (next in folder:from_msg_seq(dumbass))
20: skipstr = "Note: Message " + tostr(next) + " skipped. Author is on your message kill list."
21: next = next + 1
22: endif
23: endfor
24: who._mail_task = task_id()
25: cur = folder:display_seq_full({next, next + 1}, tostr("Message %d", " on ", $mail_agent:name(folder), ":"))
26: this:tell(skipstr)
27: who:set_current_message(folder, @cur)
28: return
29: endif
30: endfor
31: this:tell($code_utils:verb_or_property(this, "silly_news_messages")[random($)])