diff options
author | Magnus Henoch <mange@freemail.hu> | 2004-03-09 21:46:10 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2004-03-09 21:46:10 +0000 |
commit | dd452e5a63ce8a99e6277c186c59c04d4800a3c2 (patch) | |
tree | 5f3e358b4ccd41bd56163040d07e181dd4d8b6e5 /jabber-presence.el | |
parent | ab6912b9c081d8c8b04dddacc00ddb63dec83e6f (diff) |
jabber-send-presence now accepts numeric priority
Diffstat (limited to 'jabber-presence.el')
-rw-r--r-- | jabber-presence.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/jabber-presence.el b/jabber-presence.el index e268b75..e1808a0 100644 --- a/jabber-presence.el +++ b/jabber-presence.el @@ -1,5 +1,5 @@ ;; jabber-presence.el - roster and presence bookkeeping -;; $Id: jabber-presence.el,v 1.4 2004/03/09 19:20:53 legoscia Exp $ +;; $Id: jabber-presence.el,v 1.5 2004/03/09 21:46:10 legoscia Exp $ ;; Copyright (C) 2002, 2003, 2004 - tom berger - object@intelectronica.net ;; Copyright (C) 2003, 2004 - Magnus Henoch - mange@freemail.hu @@ -217,6 +217,8 @@ CLOSURE-DATA should be 'initial if initial roster push, nil otherwise." (setq *jabber-current-priority* jabber-default-priority)) (int-to-string *jabber-current-priority*))))) + (if (numberp priority) + (setq priority (int-to-string priority))) (setq *jabber-current-status* status) (setq *jabber-current-show* show) (setq *jabber-current-priority* (string-to-int priority)) |