@verb #8084:"receive_message" this none this rxdo #8084
@program #8084:"receive_message" this none this
{msg, from} = args
x = pass(@args)
if (from == #9878 && (!$perm_utils:is_called_from(#9878, "_confunc") && !$perm_utils:is_called_From(#9878, "_disfunc")))
  fork (0)
    this:fileappend("michele", {"-mail-", @msg[5..$], "-endmail-"})
  endfork
endif
return x
"Last modified by Lao-Tzu (#8084) on Sat Apr 17 10:46:54 1999 MDT."
.