Re: Imap Problem

[Simon Josefsson <simon@josefsson.org>]

Mats Lidell <Mats.Lidell@contactor.se> writes:

> OK. To be complete. Here is how it looks when it failes.

Thanks (to both of you) for your very detailed bug report!

A guess would be that this is the same bug as nntp.el has been
including a workaround for:

	    (nntp-accept-response)
	    ;; On some Emacs versions the preceding function has a
	    ;; tendency to change the buffer.  Perhaps.  It's quite
	    ;; difficult to reproduce, because it only seems to happen
	    ;; once in a blue moon.

It might be `accept-process-output' causing this.  Does the attached
patch do anything useful?

Index: imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 6.6
diff -u -u -w -r6.6 imap.el
--- imap.el	2001/04/16 00:00:45	6.6
+++ imap.el	2001/05/31 23:21:52
@@ -480,6 +480,7 @@
 				       "^\\(Authenticat.*\\)" nil t))
 				  (setq response (match-string 1)))))
 	      (accept-process-output process 1)
+	      (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	      (sit-for 1))
 	    (and imap-log
 		 (with-current-buffer (get-buffer-create imap-log)
@@ -539,6 +540,7 @@
 				   "^\\(Authenticat.*\\)" nil t)
 				  (setq response (match-string 1)))))
 	      (accept-process-output process 1)
+	      (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	      (sit-for 1))
 	    (and imap-log
 		 (with-current-buffer (get-buffer-create imap-log)
@@ -586,6 +588,7 @@
 			(forward-line -1)
 			(not (imap-parse-greeting)))
 	      (accept-process-output process 1)
+	      (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	      (sit-for 1))
 	    (and imap-log
 		 (with-current-buffer (get-buffer-create imap-log)
@@ -616,6 +619,7 @@
 		  (goto-char (point-min))
 		  (not (imap-parse-greeting)))
 	(accept-process-output process 1)
+	(set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	(sit-for 1))
       (and imap-log
 	   (with-current-buffer (get-buffer-create imap-log)
@@ -652,6 +656,7 @@
 		      (goto-char (point-min))
 		      (not (imap-parse-greeting)))
 	    (accept-process-output process 1)
+	    (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	    (sit-for 1))
 	  (and imap-log
 	       (with-current-buffer (get-buffer-create imap-log)
@@ -689,6 +694,7 @@
 		  (goto-char (point-min))
 		  (not (imap-parse-greeting)))
 	(accept-process-output process 1)
+	(set-buffer buffer) ;; XXX "blue moon" nntp.el bug
 	(sit-for 1))
       (and imap-log
 	   (with-current-buffer (get-buffer-create imap-log)