642
@verb #119:"old_RFC850_message_headers" this none this rxdo #9682
@program #119:"old_RFC850_message_headers" this none this
{time, from, to, subject, ?replyto = ""} = args
from = #2774:from_nn(from)[1]
to = #2774:from_nn(to)
replyto = #2774:from_nn(replyto)
fromstr = tostr("From: " + #2774:email_address(from))
newsgroups = destr = {}
for dest in (to)
  if (dest:isa($newsgroup))
    newsgroups = {@newsgroups, dest}
    to = setremove(to, dest)
  else
    if (dest == to[1])
      destr = {"To: " + #2774:email_address(dest)}
    else
      destr = {@destr, "    " + #2774:email_address(dest)}
    endif
  endif
endfor
ngstr = {}
for x in (newsgroups)
  if (x == newsgroups[1])
    ngstr = "Newsgroups: " + this:newsgroup_name(x)
  else
    ngstr = ngstr + ", " + this:newsgroup_name(x)
  endif
endfor
replystr = {}
for x in (replyto)
  if (x == replyto[1])
    replystr = {"Reply-To: " + #2774:email_address(x)}
  else
    replystr = {@replystr, "           " + #2774:email_address(x)}
  endif
endfor
datestr = tostr("Date: ", this:unknownRFC_time(time))
orgstr = tostr("Organization: ", $name, ", Canada")
subjstr = tostr("Subject: ", subject)
pathstr = tostr("Path: ", $site)
msgid = tostr("Message-ID: <", #2774:message_id(time), "@", $site + ">")
ver = "version B 2.10 2/13/83; site " + $site
headers = {"Relay-Version: " + ver, "Posting-Version: " + ver}
headers = {@headers, fromstr, datestr, ngstr, subjstr, msgid, pathstr}
headers = {@headers, @replystr, orgstr}
return headers
"Last modified by Dax (#789) on Thu May  5 15:34:37 2005 MDT."
.

0