2001-04-12 Jason Merrill <jason_merrill@redhat.com>

[gnus] / lisp / imap.el

diff --git a/lisp/imap.el b/lisp/imap.el
index 8a87f22..30838f5 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -653,13 +653,13 @@ If ARGS, PROMPT is used as an argument to `format'."
                      (not (imap-parse-greeting)))
            (accept-process-output process 1)
            (sit-for 1))
-         (erase-buffer)
          (and imap-log
               (with-current-buffer (get-buffer-create imap-log)
                 (imap-disable-multibyte)
                 (buffer-disable-undo)
                 (goto-char (point-max))
                 (insert-buffer-substring buffer)))
+         (erase-buffer)
          (when (memq (process-status process) '(open run))
            (setq done process)))))
     (if done