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