From: hmurata <hmurata>
Date: Sun, 3 Dec 2006 07:49:36 +0000 (+0000)
Subject: (elmo-network-initialize-session): Check to
X-Git-Tag: wl-2_15_6-fixes~103
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a5c3defd7c03a0a077616e7d44d3641e5d61c2ba;p=elisp%2Fwanderlust.git

(elmo-network-initialize-session): Check to
retrieve a whole greeting message.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 53726f0..99935c7 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2006-12-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-imap4.el (elmo-network-initialize-session): Check to
+	retrieve a whole greeting message.
+
 2006-11-25  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* elmo-flag.el (elmo-folder-commit): Encode `.minfo' at save.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index d22da97..b8d850a 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -983,8 +983,8 @@ If CHOP-LENGTH is not specified, message set is not chopped."
       ;; Skip garbage output from process before greeting.
       (while (and (memq (process-status process) '(open run))
 		  (goto-char (point-max))
-		  (forward-line -1)
-		  (not (elmo-imap4-parse-greeting)))
+		  (or (/= (forward-line -1) 0)
+		      (not (elmo-imap4-parse-greeting))))
 	(accept-process-output process 1))
       (erase-buffer)
       (set-process-filter process 'elmo-imap4-arrival-filter)