From: Simon Josefsson <jas@extundo.com>
Date: Mon, 16 Apr 2001 00:00:46 +0000 (+0000)
Subject: 2001-04-12  Jason Merrill  <jason_merrill@redhat.com>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=aeb4afbad1a480af458bd05b189c23d49b58b114

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 7da8061f9..5e1089c55 100644
--- 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 8a87f22b5..30838f5f5 100644
--- 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