Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv20294
Modified Files:
jabber-core.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-468
Creator: Magnus Henoch <ma...@fr...>
Fix :roster-update return value
Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- jabber-core.el 4 Mar 2008 07:23:27 -0000 1.85
+++ jabber-core.el 5 Mar 2008 12:05:49 -0000 1.86
@@ -696,8 +696,8 @@
(if pending-updates
(progn
(unless (memq jid-symbol-to-update pending-updates)
- (nconc pending-updates (list jid-symbol-to-update))
- (list :session-established state-data :keep)))
+ (nconc pending-updates (list jid-symbol-to-update)))
+ (list :session-established state-data :keep))
;; Otherwise, we need to create the list and start the timer.
(setq state-data
(plist-put state-data
|
