emacs-jabber jabber-core.el,1.53,1.54

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv29190

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

Catch errors in jabber-process-input


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- jabber-core.el	12 Aug 2007 22:00:38 -0000	1.53
+++ jabber-core.el	15 Aug 2007 19:31:13 -0000	1.54
@@ -738,7 +738,10 @@
 					   (stream:error . jabber-stream-error-chain)))))))
 
     (dolist (f functions)
-      (funcall f jc xml-data))))
+      (condition-case e
+	  (funcall f jc xml-data)
+	((debug error)
+	 (fsm-debug-output "Error %s while processing %s" e xml-data))))))
 
 (defun jabber-process-stream-error (jc xml-data)
   "Process an incoming stream error."