From: okazaki <okazaki>
Date: Sat, 22 Jul 2000 07:21:59 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-read-bytes): Advance
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=826d8b10ec2c8be45ea560afcc49dde5960c201a;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-read-bytes): Advance
`elmo-imap4-read-point' exactly.
---

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 4326e2d..05ff583 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -394,15 +394,14 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
   (save-excursion
     (set-buffer buffer)
     (let ((case-fold-search nil)
-	  (return-value nil)
-	  start gc-message)
+	  start gc-message return-value)
       (setq start elmo-imap4-read-point);; starting point
       (while (< (point-max) (+ start bytes))
 	(accept-process-output process))
       (setq return-value (buffer-substring
 			  start (+ start bytes)))
       (setq return-value (elmo-delete-cr return-value))
-      (setq elmo-imap4-read-point bytes)
+      (setq elmo-imap4-read-point (+ start bytes))
       return-value)))
 
 (defun elmo-imap4-read-body (buffer process bytes outbuf)