2001-06-02 Simon Josefsson <simon@josefsson.org>

	* imap.el (imap-kerberos4-open):
	(imap-gssapi-open):
	(imap-ssl-open):
	(imap-network-open):
	(imap-shell-open):
	(imap-starttls-open): Set buffer to workaround spurious
	`accept-process-output' buffer changes.  Thanks to Mats Lidell
	<Mats.Lidell@contactor.se> for report and partial patch and Jake
	Colman <colman@ppllc.com> for report.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc64978..dfd2c74 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2001-06-02  Simon Josefsson  <simon@josefsson.org>
+
+       * imap.el (imap-kerberos4-open): 
+       (imap-gssapi-open):
+       (imap-ssl-open):
+       (imap-network-open):
+       (imap-shell-open):
+       (imap-starttls-open): Set buffer to workaround spurious
+       `accept-process-output' buffer changes.  Thanks to Mats Lidell
+       <Mats.Lidell@contactor.se> for report and partial patch and Jake
+       Colman <colman@ppllc.com> for report.
+
 2001-05-31 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * gnus-sum.el (gnus-summary-catchup): New argument.

diff --git a/lisp/imap.el b/lisp/imap.el
index 30838f5..f412add 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -462,6 +462,7 @@ If ARGS, PROMPT is used as an argument to `format'."
            (setq imap-client-eol "\n"
                  imap-calculate-literal-size-first t)
            (while (and (memq (process-status process) '(open run))
+                       (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                        (goto-char (point-min))
                         ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
                        (or (while (looking-at "^C:")
@@ -524,6 +525,7 @@ If ARGS, PROMPT is used as an argument to `format'."
            (setq imap-client-eol "\n"
                  imap-calculate-literal-size-first t)
            (while (and (memq (process-status process) '(open run))
+                       (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                        (goto-char (point-min))
                         ;; cyrus 1.6.x (13? < x <= 22) queries capabilities
                        (or (while (looking-at "^C:")
@@ -582,6 +584,7 @@ If ARGS, PROMPT is used as an argument to `format'."
          (with-current-buffer buffer
            (goto-char (point-min))
            (while (and (memq (process-status process) '(open run))
+                       (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                        (goto-char (point-max))
                        (forward-line -1)
                        (not (imap-parse-greeting)))
@@ -613,6 +616,7 @@ If ARGS, PROMPT is used as an argument to `format'."
         (process (open-network-stream name buffer server port)))
     (when process
       (while (and (memq (process-status process) '(open run))
+                 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                  (goto-char (point-min))
                  (not (imap-parse-greeting)))
        (accept-process-output process 1)
@@ -649,6 +653,7 @@ If ARGS, PROMPT is used as an argument to `format'."
                         ?l imap-default-user)))))
        (when process
          (while (and (memq (process-status process) '(open run))
+                     (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                      (goto-char (point-min))
                      (not (imap-parse-greeting)))
            (accept-process-output process 1)
@@ -686,6 +691,7 @@ If ARGS, PROMPT is used as an argument to `format'."
     (message "imap: Connecting with STARTTLS...")
     (when process
       (while (and (memq (process-status process) '(open run))
+                 (set-buffer buffer) ;; XXX "blue moon" nntp.el bug
                  (goto-char (point-min))
                  (not (imap-parse-greeting)))
        (accept-process-output process 1)
@@ -790,8 +796,6 @@ Returns t if login was successful, nil otherwise."
     (if done
        (message "imap: Authenticating using CRAM-MD5...done")
       (message "imap: Authenticating using CRAM-MD5...failed"))))
-      
-  
 
 (defun imap-login-p (buffer)
   (and (not (imap-capability 'LOGINDISABLED buffer))