emacs-jabber jabber-presence.el,1.36,1.37

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv10641

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

Add feedback in echo area for accepting/declining subscription request


Index: jabber-presence.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-presence.el,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- jabber-presence.el	19 Sep 2007 09:06:45 -0000	1.36
+++ jabber-presence.el	26 Oct 2007 14:04:42 -0000	1.37
@@ -202,12 +202,15 @@
       (run-hook-with-args hook (jabber-jid-symbol from) nil "subscribe" presence-status (funcall jabber-alert-presence-message-function (jabber-jid-symbol from) nil "subscribe" presence-status)))))
 
 (defun jabber-subscription-accept-mutual (&rest ignored)
+  (message "Subscription accepted; reciprocal subscription request sent")
   (jabber-subscription-reply "subscribed" "subscribe"))
 
 (defun jabber-subscription-accept-one-way (&rest ignored)
+  (message "Subscription accepted")
   (jabber-subscription-reply "subscribed"))
 
 (defun jabber-subscription-decline (&rest ignored)
+  (message "Subscription declined")
   (jabber-subscription-reply "unsubscribed"))
 
 (defun jabber-subscription-reply (&rest types)