469
@verb #4457:"meh" this none this rxdo #4457
@program #4457:"meh" this none this
"Copied from Russ (#8043):tell Jul  6 02:49:37 2000"
"Parts of this verb made by Mike/Ignite (#9659), in order to filter Corinna's annoying HUUUUGE-Hug verb."
if (!this:connected())
  return
elseif (this.gaglist && this:gag_p())
  return
elseif (length(args) == 1 && typeof(args[1]) == $LIST)
  text = args[1]
else
  text = {tostr(@args)}
endif
try
  for segment in (text)
    oseg = segment in text
    for pattern in (this.subs)
      if (index(segment, pattern[1]))
        segment = strsub(segment, pattern[1], pattern[2])
      endif
    endfor
    text[oseg] = segment
  endfor
except (ANY)
endtry
if (index(tostr(@args), " sent new mail."))
  q = #3774:filelist()
  q = q[$]
  q = tostr(strsub(q, "message.", ""))
  q = toint(q)
  $sin.adv = {@sin.adv, {q, callers()[3][$].name}}
  this:tell("*** SENDER: ", callers()[3][$].name, " (", callers()[3][$], ") ***")
endif
return pass("<font fgcolor=#000080 bgcolor=#ffffff>" + text + "</font>")
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.

0