From 4aa9c79498e44a3313f9a33395fd2c9c72a76317 Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Sun, 15 Apr 2007 23:52:43 +0000 Subject: [PATCH] Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-341 Creator: Magnus Henoch Multiaccountify jabber-handle-uri Patch from Detlev Zundel. --- jabber-util.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/jabber-util.el b/jabber-util.el index 9d99462..3a8bcf1 100644 --- a/jabber-util.el +++ b/jabber-util.el @@ -575,17 +575,19 @@ See Info node `(jabber)XMPP URIs'." (cond ;; Join an MUC. ((string= method "join") - (jabber-groupchat-join jid (jabber-muc-read-my-nickname jid) t)) + (jabber-groupchat-join + (jabber-read-account) jid (jabber-muc-read-my-nickname jid) t)) ;; Register with a service. ((string= method "register") - (jabber-get-register jid)) + (jabber-get-register (jabber-read-account) jid)) ;; Run an ad-hoc command ((string= method "command") ;; XXX: does the 'action' attribute make sense? - (jabber-ahc-execute-command jid (cdr (assoc "node" args)))) + (jabber-ahc-execute-command + (jabber-read-account) jid (cdr (assoc "node" args)))) ;; Everything else: open a chat buffer. (t - (jabber-chat-with jid))))) + (jabber-chat-with (jabber-read-account) jid))))) (defun url-xmpp (url) "Handle XMPP URLs from internal Emacs functions."