From 826d8b10ec2c8be45ea560afcc49dde5960c201a Mon Sep 17 00:00:00 2001 From: okazaki Date: Sat, 22 Jul 2000 07:21:59 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-read-bytes): Advance `elmo-imap4-read-point' exactly. --- elmo/elmo-imap4.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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) -- 1.7.10.4