@verb #7854:"old_notify" this none this rdo #7854
@program #7854:"old_notify" this none this
"Copied from JS (#7214):notify Jun 18 17:56:22 1998"
"Copied from James (#6397):notify May 24 21:55:31 1998"
"Copied from JS (#7214):notify May 22 22:52:50 1998"
"A less-laggy :notify() verb, bypassing Mr. Output."
"Written by MattC, Oblivion, Catspaw, and JS."
if (caller != this && !caller_perms():controls(this))
  raise(E_PERM)
endif
linelength = this.output_linelength
if (this.output_wrap)
  args[1] = $string_utils:wrap(args[1], linelength)
endif
$code_utils:semaphore_enter("notify")
for line in ({@args[1]})
  line = encode_binary(line)
  line = $msg:process_notify(line, this.output_accent_mode)
  set_connection_option(this, "binary", 1)
  notify(this, tostr(line, "~0D~0A"))
  set_connection_option(this, "binary", 0)
  $cmd_utils:suspend_if_needed()
endfor
$code_utils:semaphore_exit("notify")
.