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

	Committed by Simon Josefsson  <simon@josefsson.org>

	* imap.el (imap-shell-open): Erase the buffer *after* copying it into
	the log.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7da8061..5e1089c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-12  Jason Merrill  <jason_merrill@redhat.com>
+       Committed by Simon Josefsson  <simon@josefsson.org>
+
+       * imap.el (imap-shell-open): Erase the buffer *after* copying it into
+       the log.
+
 2001-04-14 01:14:42 Lars Magne Ingebrigtsen <lars@ingebrigtsen.no>
 
        *gnus.el: Oort Gnus v0.02 is released.

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