X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=lisp%2Fpop3.el;h=4996d2435693fdfa3c1a8ae85b22ddf50e5b84b5;hb=1ee7d80b3fc8408a3f79e1aba971d535191a21de;hp=1e1743218014b3379968e51c0d7653433c27ddd8;hpb=5fd61b33c7526e7848c38ae7493b073119880100;p=elisp%2Fgnus.git-

diff --git a/lisp/pop3.el b/lisp/pop3.el
index 1e17432..4996d24 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -238,7 +238,7 @@ Argument PORT specifies connecting port."
 		    (goto-char (point-max))
 		    (forward-line -1)
 		    (not (looking-at "+OK")))
-	  (accept-process-output process 1)
+	  (nnheader-accept-process-output process)
 	  (sit-for 1))
 	(delete-region (point-min) (point)))
       (and process (memq (process-status process) '(open run))
@@ -291,7 +291,7 @@ Return the response string if optional second argument RETURN is non-nil."
       (set-buffer (process-buffer process))
       (goto-char pop3-read-point)
       (while (not (search-forward "\r\n" nil t))
-	(accept-process-output process 0 500)
+	(nnheader-accept-process-output process)
 	(goto-char pop3-read-point))
       (setq match-end (point))
       (goto-char pop3-read-point)
@@ -699,7 +699,7 @@ If msgno is invalid, return nil.  Otherwise, return a string."
     (set-buffer (process-buffer process))
     (goto-char start)
     (while (not (re-search-forward "^\\.\r\n" nil t))
-      (accept-process-output process 3)
+      (nnheader-accept-process-output process)
       (goto-char start))
     (setq pop3-read-point (point-marker))
     (goto-char (match-beginning 0))