emacs-jabber/tests nick-change-fail.el,1.2,1.3

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

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

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

Avoid errors in nick-change-fail error reporting


Index: nick-change-fail.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/tests/nick-change-fail.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- nick-change-fail.el	17 Jun 2008 14:49:52 -0000	1.2
+++ nick-change-fail.el	17 Jun 2008 14:50:42 -0000	1.3
@@ -80,7 +80,10 @@
   (princ "Conversation was:\n")
   (with-current-buffer "*-ja...@mo...-*"
     (princ (buffer-string)))
-  (princ "Contents of groupchat buffer:\n")
-  (with-current-buffer (jabber-muc-get-buffer ncf-room-name)
-    (princ (buffer-string)))
+  (let ((muc-buffer (get-buffer (jabber-muc-get-buffer ncf-room-name))))
+    (if muc-buffer
+	(with-current-buffer muc-buffer
+	  (princ "Contents of groupchat buffer:\n")
+	  (princ (buffer-string)))
+      (princ "Groupchat buffer not created.\n")))
   (kill-emacs 1))