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

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

Multiaccountify jabber-search

Patch from Detlev Zundel.
This commit is contained in:
Magnus Henoch 2007-03-20 11:49:32 +00:00 committed by Kirill A. Korinskiy
parent aafdf5fb9a
commit 071c2cbbfd
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
AUTHORS
View File

@ -13,5 +13,6 @@ Carl Henrik Lunde
Andrey Slusar
Evgenii Terechkov
Milan Zamazal
Detlev Zundel
arch-tag: 15700144-3BD9-11D9-871C-000A95C2FCD0

11
jabber-search.el
View File

@ -23,10 +23,11 @@
(add-to-list 'jabber-jid-service-menu
(cons "Search directory" 'jabber-get-search))
(defun jabber-get-search (to)
(defun jabber-get-search (jc to)
"Send IQ get request in namespace \"jabber:iq:search\"."
(interactive (list (jabber-read-jid-completing "Search what database: ")))
(jabber-send-iq to
(interactive (list (jabber-read-account)
(jabber-read-jid-completing "Search what database: ")))
(jabber-send-iq jc to
"get"
'(query ((xmlns . "jabber:iq:search")))
#'jabber-process-data #'jabber-process-register-or-search
@ -43,7 +44,7 @@
"Submit search. See `jabber-process-register-or-search'."
(let ((text (concat "Search at " jabber-submit-to)))
(jabber-send-iq jabber-submit-to
(jabber-send-iq jabber-buffer-connection jabber-submit-to
"set"
(cond
@ -60,7 +61,7 @@
(message "Search sent"))
(defun jabber-process-search-result (xml-data)
(defun jabber-process-search-result (jc xml-data)
"Receive and display search results."
;; This function assumes that all search results come in one packet,