Re: nnimap dying when trying to symbol-name 105

[Simon Josefsson <simon@josefsson.org>]

Jaakko Kangasharju <jkangash@cs.helsinki.fi> writes:

> I add the backtrace I got with debug-on-error and imap-log created by
> imap.

Thanks for the details.

It seem to be some subtleness in `read'.  It's easy to fix, but Emacs
and XEmacs seem to behave differently so I'm not sure what the proper
fix is.

Emacs: (read "(foo?Abar)")  => (foo 65 bar)

XEmacs: (read "(foo?Abar)") => (foo\?Abar)

Could someone shred any light on the matter?

The patch below autodetect the `read' behaviour and take care of the
difference.  It is NOT a proper fix, but you should be able to read
your mail with it while we debug this.

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 1.22
diff -w -u -u -w -r1.22 imap.el
--- imap.el	2000/08/11 17:47:17	1.22
+++ imap.el	2000/08/30 11:09:45
@@ -2183,6 +2183,9 @@
 	pos)
     (while (setq pos (string-match "\\\\" str (and pos (+ 2 pos))))
       (setq str (replace-match "\\\\" nil t str)))
+    (when (= (length (symbol-name (read "A?A"))) 1)
+      (while (setq pos (string-match "\\?" str (and pos (+ 2 pos))))
+	(setq str (replace-match "\\?" nil t str))))
     (mapcar 'symbol-name (read str))))
 
 ;;   envelope        = "(" env-date SP env-subject SP env-from SP env-sender SP