From 1e91d50696f9d458228039f5d1e346fd4dae41e6 Mon Sep 17 00:00:00 2001 From: Gnus developers Date: Sun, 21 Aug 2011 09:39:07 +0000 Subject: Merge changes made in Gnus trunk. nntp.el (nntp-authinfo-file): Mark as obsolete -- use auth-source instead. pop3.el (pop3-wait-for-messages): Don't use Gnus functions here. gnus-util.el (gnus-process-live-p): Copy over compat function. pop3.el (pop3-wait-for-messages): If the pop3 process dies, stop processing. nntp.el (nntp-kill-buffer): Kill the process before killing the buffer to avoid warnings. gnus-agent.el (gnus-agent-expire-done-message): Use %.f as format specified to reduce precision. --- lisp/gnus/pop3.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/gnus/pop3.el') diff --git a/lisp/gnus/pop3.el b/lisp/gnus/pop3.el index e29ddb0d44e..54c21703836 100644 --- a/lisp/gnus/pop3.el +++ b/lisp/gnus/pop3.el @@ -178,6 +178,8 @@ Use streaming commands." (defun pop3-wait-for-messages (process count total-size) (while (< (pop3-number-of-responses total-size) count) + (unless (memq (process-status process) '(open run)) + (error "pop3 process died")) (when total-size (message "pop3 retrieved %dKB (%d%%)" (truncate (/ (buffer-size) 1000)) -- cgit v1.2.1