projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
T-gnus 6.15.18 (quimby) revision 00.
[elisp/gnus.git-]
/
lisp
/
pop3.el
diff --git
a/lisp/pop3.el
b/lisp/pop3.el
index
1e17432
..
4996d24
100644
(file)
--- 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")))
(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))
(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))
(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)
(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))
(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))
(goto-char start))
(setq pop3-read-point (point-marker))
(goto-char (match-beginning 0))