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

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

Multiaccountify jabber-send-message
This commit is contained in:
Magnus Henoch 2007-02-07 13:49:28 +00:00 committed by Kirill A. Korinskiy
parent e066a70ddb
commit 97a9ce73d2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
jabber-chat.el
View File

@ -558,13 +558,15 @@ If DELAYED is true, print long timestamp
(add-to-list 'jabber-jid-chat-menu
(cons "Compose message" 'jabber-compose))
(defun jabber-send-message (to subject body type)
(defun jabber-send-message (jc to subject body type)
"send a message tag to the server"
(interactive (list (jabber-read-jid-completing "to: ")
(interactive (list (jabber-read-account)
(jabber-read-jid-completing "to: ")
(jabber-read-with-input-method "subject: ")
(jabber-read-with-input-method "body: ")
(read-string "type: ")))
(jabber-send-sexp `(message ((to . ,to)
(jabber-send-sexp jc
`(message ((to . ,to)
,(if (> (length type) 0)
`(type . ,type)))
,(if (> (length subject) 0)