(elmo-network-initialize-session): Erase buffer after parsing greeting string.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 885c4a0..dbe47ca 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * elmo-imap4.el (elmo-network-initialize-session): Erase buffer
+       after parsing greeting string.
+
 2004-11-23  Daishi Kato <daishi@axlight.com>
 
        * elsp-spamoracle.el (elmo-spam-spamoracle-spam-header-regexp):

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 8146bd9..fbb0815 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -970,6 +970,7 @@ If CHOP-LENGTH is not specified, message set is not chopped."
                  (forward-line -1)
                  (not (elmo-imap4-parse-greeting)))
        (accept-process-output process 1))
+      (erase-buffer)
       (set-process-filter process 'elmo-imap4-arrival-filter)
       (set-process-sentinel process 'elmo-imap4-sentinel)
 ;;;   (while (and (memq (process-status process) '(open run))