412
@verb #12:"set_current_message" this none this rxdo #55
@program #12:"set_current_message" this none this
":set_current_message(recipient[,number[,date]])"
"Returns the new {number,last-read-date} pair for recipient."
if (caller != this && !$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
endif
{recip, ?number = E_NONE, ?date = 0} = args
cm = this.current_message
if (number != E_NONE)
  $mail_db:set_message_read(recip:get_message_id(number), this, recip)
endif
if (recip == this)
  this.current_message[2] = max(date, cm[2])
  if (number != E_NONE)
    this.current_message[1] = number
  endif
  return this.current_message[1..2]
elseif (i = $list_utils:iassoc(recip, cm))
  this.current_message[i] = {recip, number == E_NONE ? cm[i][2] | number, max(date, cm[i][3])}
  return this.current_message[i][2..3]
else
  entry = {recip, number != E_NONE && number, date}
  this.current_message = {@cm, entry}
  return entry[2..3]
endif
"Last modified by Lao-Tzu (#8084) on Tue Dec  3 09:35:23 2002 MST."
.

0