emacs-jabber jabber-presence.el,1.43,1.44

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv5304

Modified Files:
	jabber-presence.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-464
Creator:  Magnus Henoch <ma...@fr...>

Run only one pending-presence timer

Why didn't this explode on me earlier?


Index: jabber-presence.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-presence.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- jabber-presence.el	2 Mar 2008 04:19:48 -0000	1.43
+++ jabber-presence.el	2 Mar 2008 16:13:32 -0000	1.44
@@ -217,10 +217,11 @@
 
 	      (push (cons jc buddy) jabber-pending-presence-updates)
 	      (unless jabber-pending-presence-timer
-		(run-with-idle-timer 
-		 jabber-pending-presence-timeout
-		 nil
-		 'jabber-handle-pending-presence-updates))
+		(setq jabber-pending-presence-timer
+		      (run-with-idle-timer 
+		       jabber-pending-presence-timeout
+		       nil
+		       'jabber-handle-pending-presence-updates)))
 
 	      (dolist (hook '(jabber-presence-hooks jabber-alert-presence-hooks))
 		(run-hook-with-args hook