emacs-jabber jabber-util.el,2.55,2.56

[Evgenii T. <evg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv25568

Modified Files:
	jabber-util.el 
Log Message:
Accepting ad-hoc commands from all jids from jabber-account-list.


Index: jabber-util.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-util.el,v
retrieving revision 2.55
retrieving revision 2.56
diff -u -d -r2.55 -r2.56
--- jabber-util.el	23 Feb 2008 17:45:16 -0000	2.55
+++ jabber-util.el	24 Feb 2008 11:13:34 -0000	2.56
@@ -180,9 +180,8 @@
     (intern (downcase (jabber-jid-user string)) jabber-jid-obarray)))
 
 (defun jabber-my-jid-p (jc jid)
-  "Return non-nil if the specified JID is equal to the user's JID, modulo resource."
-  (equal (jabber-jid-user jid)
-	 (jabber-connection-bare-jid jc)))
+  "Return non-nil if the specified JID is in jabber-account-list (modulo resource). JC arg placed for compatibility and may be removed in future."
+  (member (jabber-jid-user jid) (mapcar (lambda (x) (jabber-jid-user (car x))) jabber-account-list)))
 
 (defun jabber-read-jid-completing (prompt &optional subset require-match default resource)
   "read a jid out of the current roster from the minibuffer.