one runtime error less when doing friendships using xmpp clients

This commit is contained in:
psyc://psyced.org/~lynX 2010-11-20 16:41:52 +01:00
parent 6072304ff1
commit c0f78670f7

View File

@ -158,7 +158,8 @@ msg(source, mc, data, mapping vars, showingLog) {
ret = ::msg(source, mc, data, vars, showingLog); ret = ::msg(source, mc, data, vars, showingLog);
buddy = objectp(source) ? source -> qName() : source; buddy = objectp(source) ? source -> qName() : source;
jid = mkjid(source); jid = mkjid(source);
emit(sprintf("<iq type='set' id='%s'>" if (mappingp(xbuddylist) && xbuddylist[buddy] && jid)
emit(sprintf("<iq type='set' id='%s'>"
"<query xmlns='jabber:iq:roster'>" "<query xmlns='jabber:iq:roster'>"
"<item jid='%s' subscription='both'>%s" "<item jid='%s' subscription='both'>%s"
"</item></query></iq>", tag, "</item></query></iq>", tag,