From dfb5d47bbf4dbe4eff71197711e8e08e9236d3a2 Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 6 Jul 2008 07:44:10 +0000 Subject: [PATCH] * elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'. --- elmo/ChangeLog | 4 ++++ elmo/elmo-pop3.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index 2594f79..1a4c4ba 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,7 @@ +2008-07-06 TAKAHASHI Kaoru + + * elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'. + 2008-07-06 YAMASHITA Junji * elmo-pop3.el (elmo-pop3-read-contents): improving performance: diff --git a/elmo/elmo-pop3.el b/elmo/elmo-pop3.el index 5538f50..43932de 100644 --- a/elmo/elmo-pop3.el +++ b/elmo/elmo-pop3.el @@ -470,9 +470,9 @@ until the login delay period has expired")) (with-current-buffer (process-buffer process) (let ((case-fold-search nil) (point elmo-pop3-read-point)) - (while (and (goto-char (max (- point 2) (point-min))) + (while (and (goto-char (- point 2)) (not (search-forward "\r\n.\r\n" nil t))) - (setq point (goto-char (point-max))) + (setq point (- (point-max) 2)) ; Care of \r\n.\r[EOF] case (accept-process-output process 1)) (elmo-delete-cr (buffer-substring elmo-pop3-read-point -- 1.7.10.4