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."
|
