Mercurial > hg > xemacs-beta

comparison lisp/gnus/pop3.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents cca96a509cfe
children 15872534500d
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
146 match-end) 146 match-end)
147 (save-excursion 147 (save-excursion
148 (set-buffer (process-buffer process)) 148 (set-buffer (process-buffer process))
149 (goto-char pop3-read-point) 149 (goto-char pop3-read-point)
150 (while (not (search-forward "\r\n" nil t)) 150 (while (not (search-forward "\r\n" nil t))
151 (accept-process-output process) 151 (accept-process-output process 3)
152 (goto-char pop3-read-point)) 152 (goto-char pop3-read-point))
153 (setq match-end (point)) 153 (setq match-end (point))
154 (goto-char pop3-read-point) 154 (goto-char pop3-read-point)
155 (if (looking-at "-ERR") 155 (if (looking-at "-ERR")
156 (error (buffer-substring (point) (- match-end 2))) 156 (error (buffer-substring (point) (- match-end 2)))
296 (pop3-read-response process) 296 (pop3-read-response process)
297 (let ((start pop3-read-point) end) 297 (let ((start pop3-read-point) end)
298 (save-excursion 298 (save-excursion
299 (set-buffer (process-buffer process)) 299 (set-buffer (process-buffer process))
300 (while (not (re-search-forward "^\\.\r\n" nil t)) 300 (while (not (re-search-forward "^\\.\r\n" nil t))
301 (accept-process-output process) 301 (accept-process-output process 3)
302 ;; bill@att.com ... to save wear and tear on the heap 302 ;; bill@att.com ... to save wear and tear on the heap
303 (if (> (buffer-size) 20000) (sleep-for 1)) 303 (if (> (buffer-size) 20000) (sleep-for 1))
304 (if (> (buffer-size) 50000) (sleep-for 1)) 304 (if (> (buffer-size) 50000) (sleep-for 1))
305 (if (> (buffer-size) 100000) (sleep-for 1)) 305 (if (> (buffer-size) 100000) (sleep-for 1))
306 (if (> (buffer-size) 200000) (sleep-for 1)) 306 (if (> (buffer-size) 200000) (sleep-for 1))