View/Edit #12:msg_postscript

Switch to edit mode.

Name(s): msg_postscript
1:  "Returns the postscript for a message on a newsgroup.  This is where related messages are displayed if the proper options are set."
2:  {ng, msg_num} = args
3:  caller_perms().wizard || raise(E_PERM)
4:  ps = {}
5:  if (!this:mail_option("showreferences") && !this:mail_option("showreplies"))
6:    return ps
7:  endif
8:  msgid = ng:get_message_id(msg_num)
9:  if (this:mail_option("showreferences"))
10: endif
11: if (this:mail_option("showreplies"))
12:   tree = $mail_agent:hyperlinky_reply_tree(ng, msgid)
13:   if (tree)
14:     ps = {@ps, "-----", "<i>Replies</i>:", @$su:display_tree("HEADLESS!", tree)[3..$]}
15:   endif
16: endif
17: return ps
18: "Last modified by Lao-Tzu (#8084) on Sun Nov 24 20:10:18 2002 MST."

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

You are not logged in.

[home | help | who | search | setup | code]