Mathias Dahl <[EMAIL PROTECTED]> writes: > I might also try to extend it to find my Jabber buddies and start > chatting with them.
Did it. Works. The code below requires jabber.el: (defun my-jabber-list-contacts (&optional subset require-match default resource) "List Jabber contacts. This is a blatant copy-paste from `jabber-chat-with' with some code removed." (let ((jid-at-point (or (and default ;; default can be either a symbol or a string (if (symbolp default) (symbol-name default) default)) (get-text-property (point) 'jabber-jid) (bound-and-true-p jabber-chatting-with) (bound-and-true-p jabber-group))) (completion-ignore-case t) (jid-completion-table (mapcar #'(lambda (item) (cons (symbol-name item) item)) (or subset (jabber-concat-rosters)))) chosen) (dolist (item (or subset (jabber-concat-rosters))) (if (get item 'name) (push (cons (get item 'name) item) jid-completion-table))) ;; if the default is not in the allowed subset, it's not a good default (if (and subset (not (assoc jid-at-point jid-completion-table))) (setq jid-at-point nil)) jid-completion-table)) To be more useful the above should probably only list online contacts. Add this to your anything sources: ... ((name . "Jabber Contacts") (candidates . (lambda () (mapcar (lambda (x) (car x)) (my-jabber-list-contacts)))) (action . (lambda (x) (jabber-chat-with (jabber-read-account) x)))) ... /Mathias _______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources@gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources