(imap-kerberos4-open): Erase more (fixes race condition?).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b7c9338..01e720e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-08  Simon Josefsson  <simon@josefsson.org>
+
+       * imap.el (imap-kerberos4-open): Erase more (fixes race condition?).
+
 2000-09-08  David Edmondson <dme@dme.org>
 
        * gnus.el (gnus-short-group-name): Guess separator.

diff --git a/lisp/imap.el b/lisp/imap.el
index 29213c1..e652f40 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -435,6 +435,7 @@ If ARGS, PROMPT is used as an argument to `format'."
        cmd done)
     (while (and (not done) (setq cmd (pop cmds)))
       (message "Opening Kerberos 4 IMAP connection with `%s'..." cmd)
+      (erase-buffer)
       (let* ((port (or port imap-default-port))
             (coding-system-for-read imap-coding-system-for-read)
             (coding-system-for-write imap-coding-system-for-write)