emacs-jabber jabber-compose.el,1.3,1.4

[Magnus H. <leg...@us...>]

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)