wgreenhouse/emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-341

Browse Source 
Creator:  Magnus Henoch <mange@freemail.hu>

Multiaccountify jabber-handle-uri

Patch from Detlev Zundel.
This commit is contained in:
Magnus Henoch 2007-04-15 23:52:43 +00:00 committed by Kirill A. Korinskiy
parent 17ef980d45
commit 4aa9c79498
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
jabber-util.el
View File

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