@verb #12:"mail_catch_up" this none this rxdo #55
@program #12:"mail_catch_up" this none this
set_task_perms(caller == this ? this.owner | caller_perms())
"this verb has been entirely commented out, because we don't know what it does.  It most certainly sets the current message to the 'last one you could possibly have read', which is actually wrong in the -new-mail-system-.  If we loose functionality because this is commented out, someone figure out what the purpose of this is.  Especially the $list_utils:reverse.  I mean, what's up with that?  - Lao 2002-12-03"
"new_cm = head = {};"
"for n in (this.current_message)"
"  $cmd_utils:suspend_if_needed();"
"  if (typeof(n) != $LIST)"
"    head = {@head, n};"
"  elseif ($mail_agent:is_recipient(folder = n[1]) && \"$mail_agent:is_readable_by(folder, this)\")"
"    \"...set current msg to be the last one you could possibly have read.\";"
"    try"
"      i = `folder:get_num(folder:length_date_le(n[3])) ! E_RANGE => 0';"
"      n[2] = i && `folder:headers_in_seq(i)[1] ! E_RANGE => folder.messages[$][1]';"
"      new_cm = listappend(new_cm, n, $list_utils:iassoc_sorted(n[3], new_cm, 3));"
"    except (E_PERM)"
"    endtry"
"  endif"
"  ((ticks_left() < 30000) && \"yes, a single iteration of this loop can take up to 30000 ticks. doesn't the mail system suck?\") && suspend(0);"
"endfor"
"$cmd_utils:suspend_if_needed();"
"this.current_message = {@head, @$list_utils:reverse(new_cm)};"
this:set_current_folder(this)
"Last modified by Dax (#789) on Wed May  4 06:45:59 2005 MDT."
.