@verb #12:"autocorrect" this none this rxdo #60
@program #12:"autocorrect" this none this
"Automatically correct spelling errors."
{text} = args
if (!$tcm && !$command_utils:running_out_of_time())
  "COrrect ANy SImple CApitalization ERrors."
  while (m = match(text, "%<[A-Z][A-Z]%([a-z][a-z]+%|[a-rt-z]%)%>", 1))
    text[m[1] + 1] = $string_utils.alphabet[index($string_utils.alphabet, text[m[1] + 1])]
  endwhile
  "Common typos."
  text = strsub(text, "oudl", "ould", 1)
  "Mark up the text."
  text = $html_utils:structured_phrase_recognition(text)
endif
return text
"Last modified by Dax (#789) on Fri Jun  3 16:35:57 2005 MDT."
.