anchor.diff:        IdBin = mtc_entry:sput(#mt_post{
           author = Author,
           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,
           origin = ?MT_ORIGIN,
           tags = [unicode:characters_to_binary(sanit(unicode:characters_to_binary(T))) || T <- string:tokens(unicode:characters_to_list(list_to_binary(Tags)), ",")]
         }),
  
positive.code:   end,
    comment_tree(Comments, Tree ++ [E]).
  
  comment_body(#mt_comment{author = #mt_author{id = PersonId},
                           body = Body
                          } = Comment,
               #comment{post_id = PostId,
                        id = Id,
                        parents = Parents,
  
negative.code:       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 = 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
        })
  