emacs-jabber jabber-core.el,1.87,1.88

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv20742

Modified Files:
	jabber-core.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-474
Creator:  Magnus Henoch <ma...@fr...>

jabber-send-string: signal an error if connection is nil


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- jabber-core.el	27 Mar 2008 16:09:13 -0000	1.87
+++ jabber-core.el	28 Mar 2008 13:46:23 -0000	1.88
@@ -989,6 +989,8 @@
   (let* ((state-data (fsm-get-state-data jc))
 	 (connection (plist-get state-data :connection))
 	 (send-function (plist-get state-data :send-function)))
+    (unless connection
+      (error "%s has no connection" (jabber-connection-jid jc)))
     (funcall send-function connection string)))
 
 (provide 'jabber-core)