2009-02-04  Dave Love  <fx@gnu.org>

	* imap.el (imap-fetch-safe): Revert last change in XEmacs.

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 7.54
diff -u -r7.54 imap.el
--- imap.el	31 Jan 2009 15:27:39 -0000	7.54
+++ imap.el	8 Feb 2009 17:58:23 -0000
@@ -1815,8 +1817,9 @@
   (condition-case data
       ;; Binding `debug-on-error' allows us to get the error from
       ;; `imap-parse-response' -- it's normally caught by Emacs around
-      ;; execution of a process filter.
-      (let ((debug-on-error t))
+      ;; execution of a process filter.  FIXME:  That doesn't work in
+      ;; XEmacs -- you get a debugger session.
+      (let ((debug-on-error (if (featurep 'xemacs) debug-on-error t)))
 	(imap-fetch (if imap-enable-exchange-bug-workaround
 			(cdr uids)
 		      (car uids))