anchor.diff:        Tags = wf:q("tags-input"),
         mtc_entry:supdate(Post#mt_post{
           title = case Title of undefined -> Title; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize("text", sanitize_fix(Title))) end,
  -        body = case Text of undefined -> Text; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize(sanitize_fix(Text))) end,
  +        body = Text,
  +        body_html = case Text of undefined -> Text; _ -> unicode:characters_to_binary(mtws_sanitizer:sanitize(sanitize_fix(Text))) end,
           tags = [unicode:characters_to_binary(sanit(unicode:characters_to_binary(T))) || T <- string:tokens(unicode:characters_to_list(list_to_binary(Tags)), ",")],
           origin = ?MT_ORIGIN
         })
  
positive.code:       ?ERR("Unknown person: ~p", [PersonId]),
        {"", "", ""}
    end,
    [
      #panel{id="pan-"++parents_to_path(PostId, Parents), class = "comment-box", style="margin-left: "++integer_to_list(Margin)++"px;", body = [
        #panel{class = "user-identify-box", body = [
  
negative.code:       Comment = #mt_comment{
          post_id = ?a2b(PostId),
          author = Author,
          body = Text,
          body_html = SanText,
          timestamp = mtc_util:timestamp(),
          parents = Parents
        },
  