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

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

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