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))))
|
