*** pop3.el Mon Nov 24 21:13:48 1997
--- pop3.orig.el Sat Jul 19 16:39:26 1997
***************
*** 108,117 ****
  	(process))
      (save-excursion
        (set-buffer process-buffer)
!       (erase-buffer)
!  	    (setq pop3-read-point (point-min)))
      (setq process
  	  (open-network-stream "POP" process-buffer mailhost port))
      (let ((response (pop3-read-response process t)))
        (setq pop3-timestamp
  	    (substring response (or (string-match "<" response) 0)
--- 108,117 ----
  	(process))
      (save-excursion
        (set-buffer process-buffer)
!       (erase-buffer))
      (setq process
  	  (open-network-stream "POP" process-buffer mailhost port))
+     (setq pop3-read-point (point-min))
      (let ((response (pop3-read-response process t)))
        (setq pop3-timestamp
  	    (substring response (or (string-match "<" response) 0)