From: kaoru <kaoru>
Date: Sun, 6 Jul 2008 07:44:10 +0000 (+0000)
Subject: * elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'.
X-Git-Tag: wl-2_15_6-fixes~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dfb5d47bbf4dbe4eff71197711e8e08e9236d3a2;p=elisp%2Fwanderlust.git

* elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'.
---

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  <kaoru@kaisei.org>
+
+	* elmo-pop3.el (elmo-pop3-read-contents): Fix double `goto-char'.
+
 2008-07-06 YAMASHITA Junji <ysiijj@gmail.com>
 
 	* 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