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