emacs-jabber jabber-presence.el,1.47,1.48

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

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

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

Send priority only if current priority is non-nil


Index: jabber-presence.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-presence.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- jabber-presence.el	27 Mar 2008 16:09:13 -0000	1.47
+++ jabber-presence.el	17 Jun 2008 14:46:23 -0000	1.48
@@ -330,7 +330,8 @@
        `(status () ,*jabber-current-status*))
     ,(when (> (length *jabber-current-show*) 0)
 	 `(show () ,*jabber-current-show*))
-    (priority () ,(number-to-string *jabber-current-priority*))
+    ,(when *jabber-current-priority*
+       `(priority () ,(number-to-string *jabber-current-priority*)))
     ,@(apply 'append (mapcar (lambda (f)
 			       (funcall f jc))
 			     jabber-presence-element-functions))))