Re: IMAP and Exchange 2007 - imap-fetch-safe

[Dave Love <fx@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 497 bytes --]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Mon, Feb 02 2009, Dave Goldberg wrote:
>
>> Unfortunately I cannot report the same success.  I use XEmacs:
>>
>> "XEmacs 21.4 (patch 21) \"Educational Television\" [Lucid] (x86_64-unknown-linux, Mule) of Tue Jan  6 2009 on blackbird"
>
> Does anyone have an idea what is different in XEmacs?

I'll leave it for an XEmacs user to fix, but this should revert to the
previous situation where you have to set the variable explicitly for
XEmacs.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 900 bytes --]

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