diff options
| author | Gnus developers <ding@gnus.org> | 2011-08-21 09:39:07 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-08-21 09:39:07 +0000 |
| commit | 1e91d50696f9d458228039f5d1e346fd4dae41e6 (patch) | |
| tree | f4ddb48c65e08ab12a2297f06b639efee7438f53 /lisp/gnus/pop3.el | |
| parent | f5e3c5984b072553838cb15dfd4ab94a9f6ac436 (diff) | |
| download | emacs-1e91d50696f9d458228039f5d1e346fd4dae41e6.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/pop3.el')
| -rw-r--r-- | lisp/gnus/pop3.el | 2 |
1 files changed, 2 insertions, 0 deletions
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)) |