From a5c3defd7c03a0a077616e7d44d3641e5d61c2ba Mon Sep 17 00:00:00 2001 From: hmurata Date: Sun, 3 Dec 2006 07:49:36 +0000 Subject: [PATCH] (elmo-network-initialize-session): Check to retrieve a whole greeting message. --- elmo/ChangeLog | 5 +++++ elmo/elmo-imap4.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * elmo-imap4.el (elmo-network-initialize-session): Check to + retrieve a whole greeting message. + 2006-11-25 Hiroya Murata * 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) -- 1.7.10.4