Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv23305
Modified Files:
jabber-compose.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-347
Creator: Magnus Henoch <ma...@fr...>
Multiaccountify jabber-compose
Index: jabber-compose.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-compose.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** jabber-compose.el 15 Jul 2006 12:15:32 -0000 1.3
--- jabber-compose.el 18 Apr 2007 22:51:20 -0000 1.4
***************
*** 1,5 ****
;;; jabber-compose.el --- compose a Jabber message in a buffer
! ;; Copyright (C) 2006 Magnus Henoch
;; Author: Magnus Henoch <ma...@fr...>
--- 1,5 ----
;;; jabber-compose.el --- compose a Jabber message in a buffer
! ;; Copyright (C) 2006, 2007 Magnus Henoch
;; Author: Magnus Henoch <ma...@fr...>
***************
*** 24,30 ****
;;;###autoload
! (defun jabber-compose (&optional recipient)
"Create a buffer for composing a Jabber message."
! (interactive (list (jabber-read-jid-completing "To whom? ")))
(with-current-buffer (get-buffer-create
--- 24,31 ----
;;;###autoload
! (defun jabber-compose (jc &optional recipient)
"Create a buffer for composing a Jabber message."
! (interactive (list (jabber-read-account)
! (jabber-read-jid-completing "To whom? ")))
(with-current-buffer (get-buffer-create
***************
*** 35,38 ****
--- 36,40 ----
(format "-%s" (jabber-jid-displayname recipient))))))
(set (make-local-variable 'jabber-widget-alist) nil)
+ (setq jabber-buffer-connection jc)
(use-local-map widget-keymap)
***************
*** 72,76 ****
(dolist (to recipients)
! (jabber-send-message to subject text nil))
(bury-buffer)
--- 74,78 ----
(dolist (to recipients)
! (jabber-send-message jabber-buffer-connection to subject text nil))
(bury-buffer)
|
