View/Edit #119:old_RFC850_message_headers

Switch to edit mode.

1:  {time, from, to, subject, ?replyto = ""} = args
2:  from = #2774:from_nn(from)[1]
3:  to = #2774:from_nn(to)
4:  replyto = #2774:from_nn(replyto)
5:  fromstr = tostr("From: " + #2774:email_address(from))
6:  newsgroups = destr = {}
7:  for dest in (to)
8:    if (dest:isa($newsgroup))
9:      newsgroups = {@newsgroups, dest}
10:     to = setremove(to, dest)
11:   else
12:     if (dest == to[1])
13:       destr = {"To: " + #2774:email_address(dest)}
14:     else
15:       destr = {@destr, "    " + #2774:email_address(dest)}
16:     endif
17:   endif
18: endfor
19: ngstr = {}
20: for x in (newsgroups)
21:   if (x == newsgroups[1])
22:     ngstr = "Newsgroups: " + this:newsgroup_name(x)
23:   else
24:     ngstr = ngstr + ", " + this:newsgroup_name(x)
25:   endif
26: endfor
27: replystr = {}
28: for x in (replyto)
29:   if (x == replyto[1])
30:     replystr = {"Reply-To: " + #2774:email_address(x)}
31:   else
32:     replystr = {@replystr, "           " + #2774:email_address(x)}
33:   endif
34: endfor
35: datestr = tostr("Date: ", this:unknownRFC_time(time))
36: orgstr = tostr("Organization: ", $name, ", Canada")
37: subjstr = tostr("Subject: ", subject)
38: pathstr = tostr("Path: ", $site)
39: msgid = tostr("Message-ID: <", #2774:message_id(time), "@", $site + ">")
40: ver = "version B 2.10 2/13/83; site " + $site
41: headers = {"Relay-Version: " + ver, "Posting-Version: " + ver}
42: headers = {@headers, fromstr, datestr, ngstr, subjstr, msgid, pathstr}
43: headers = {@headers, @replystr, orgstr}
44: return headers
45: "Last modified by Dax (#789) on Thu May  5 15:34:37 2005 MDT."

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