@verb #47:"get_inreplyto" this none this rxdo #8084
@program #47:"get_inreplyto" this none this
"Returns the unique message ID string that this represents the message this message was written as a reply to, or \"\" if no such message exists."
"This verb slaves get_full_message to read mail files."
{msg_num} = args
msg_spec_index = listiassoc(msg_num, caller.messages)
if (msg_spec_index && length(caller.messages[msg_spec_index]) >= 4 && (in_reply_to = caller.messages[msg_spec_index][4]) != 0)
  return in_reply_to
endif
mail = this:get_full_message(caller, msg_num)
for x in (mail)
  if (m = match(x, "^In-Reply-To: +%(<.+>%) *$"))
    in_reply_to = x[m[3][1][1]..m[3][1][2]]
    this:update_messages_prop(caller, msg_num, 0, in_reply_to)
    return in_reply_to
  elseif (!x)
    break
  endif
endfor
in_reply_to = ""
this:update_messages_prop(caller, msg_num, 0, in_reply_to)
return in_reply_to
"Last modified by Lao-Tzu (#8084) on Fri Jan 11 10:21:02 2002 MST."
.