From 16a4e59203d7faeb0da8e06ae6ffc89908512f63 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 6 Jul 2008 08:27:20 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-pop3-read-contents): Add `elmo-pop3-read-point' barrier. --- elmo/ChangeLog | 1 + elmo/elmo-pop3.el | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 1a4c4ba..ed61bf3 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,6 +1,7 @@ 2008-07-06 TAKAHASHI Kaoru * elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'. + Add `elmo-pop3-read-point' barrier. 2008-07-06 YAMASHITA Junji diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 43932de..321af6b 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -472,7 +472,8 @@ until the login delay period has expired")) (point elmo-pop3-read-point)) (while (and (goto-char (- point 2)) (not (search-forward "\r\n.\r\n" nil t))) - (setq point (- (point-max) 2)) ; Care of \r\n.\r[EOF] case + (setq point (max (- (point-max) 2) ; Care of \r\n.\r[EOF] case + elmo-pop3-read-point)) (accept-process-output process 1)) (elmo-delete-cr (buffer-substring elmo-pop3-read-point -- 1.7.10.4