anchor.diff:    Iq0 = exmpp_iq:set(undefined, VCard, 'vc1'),
     exmpp_xml:set_attribute(Iq0, FromAttr).
   
  --spec vcard_presence(binary(), #state{}) -> #xmlel{}.
  -vcard_presence(Id, #state{jid=Jid}) ->
  +-spec vcard_presence(binary()) -> #xmlel{}.
  +vcard_presence(Id) ->
     Photo0 = exmpp_xml:element(undefined, 'photo', [], []),
     Photo = exmpp_xml:set_cdata(Photo0, Id),
     X = exmpp_xml:element('vcard-temp:x:update', 'x', [], [Photo]),
  
positive.code:       case exmpp_xml:get_attribute_as_binary(Raw, <<"from">>, <<"unknown">>) of
          OurJidBin -> ok;
          From ->
            error_logger:info_msg("~s: ~s", [From, Msg])
        end
    end,
  
negative.code:   send_groupchat_msg_to_jid(Msg, Jid, ToJid, State).
  
  -spec send_groupchat_msg_to_jid(binary(), #jid{}, #jid{}, #state{}) -> ok.
  send_groupchat_msg_to_jid(Bin, FromJid, ToJid, State) ->
    Msg = exmpp_message:groupchat(Bin),
    send_packet_from_to(Msg, FromJid, ToJid, State).
  
  -spec send_chat_msg_to_jid(binary(), #jid{}, #jid{}, #state{}) -> ok.
  send_chat_msg_to_jid(Bin, FromJid, ToJid, State) ->
    Msg = exmpp_message:chat(Bin),
    send_packet_from_to(Msg, FromJid, ToJid, State).
  
  -spec send_packet_from_to(#xmlel{}, #jid{}, #jid{}, #state{}) -> ok.
  send_packet_from_to(Msg=#xmlel{}, FromJid, ToJid, #state{session=Session}) ->
    Packet = exmpp_stanza:set_sender(
               exmpp_stanza:set_recipient(Msg, ToJid), FromJid),
    exmpp_session:send_packet(Session, Packet),
    ok.
  
  