Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv14337
Modified Files:
jabber-presence.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-465
Creator: Magnus Henoch <ma...@fr...>
Add more types to jabber-send-directed-presence. Extend docstring.
Index: jabber-presence.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-presence.el,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- jabber-presence.el 2 Mar 2008 16:13:32 -0000 1.44
+++ jabber-presence.el 2 Mar 2008 16:36:38 -0000 1.45
@@ -366,7 +366,24 @@
jabber-presence-element-functions))))
(defun jabber-send-directed-presence (jc jid type)
- "Send a directed presence stanza to JID."
+ "Send a directed presence stanza to JID.
+TYPE is one of:
+\"online\", \"away\", \"xa\", \"dnd\", \"chatty\":
+ Appear as present with the given status.
+\"unavailable\":
+ Appear as offline.
+\"probe\":
+ Ask the contact's server for updated presence.
+\"subscribe\":
+ Ask for subscription to contact's presence.
+ (see also `jabber-send-subscription-request')
+\"unsubscribe\":
+ Cancel your subscription to contact's presence.
+\"subscribed\":
+ Accept contact's request for presence subscription.
+ (this is usually done within a chat buffer)
+\"unsubscribed\":
+ Cancel contact's subscription to your presence."
(interactive
(list (jabber-read-account)
(jabber-read-jid-completing "Send directed presence to: ")
@@ -377,10 +394,16 @@
("dnd")
("chatty")
("probe")
- ("unavailable"))
+ ("unavailable")
+ ("subscribe")
+ ("unsubscribe")
+ ("subscribed")
+ ("unsubscribed"))
nil t nil nil "online")))
(cond
- ((member type '("probe" "unavailable"))
+ ((member type '("probe" "unavailable"
+ "subscribe" "unsubscribe"
+ "subscribed" "unsubscribed"))
(jabber-send-sexp jc `(presence ((to . ,jid)
(type . ,type)))))
|
