[gnus git] branch master updated: n0-17-59-g3439b57 =1= * pop3.el (pop3-retr): Error out if the server closes the connection.
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 3439b579bb5162bbc96551275bc40256de70e974 (commit)
from 030640176be2e23653f91f2e5a6483644fd0b769 (commit)
- Log -----------------------------------------------------------------
commit 3439b579bb5162bbc96551275bc40256de70e974
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Mon May 30 19:16:48 2011 +0200
* pop3.el (pop3-retr): Error out if the server closes the connection.
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 547d7e3..b4fdd08 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-05-30 Lars Magne Ingebrigtsen <[email protected]>
+
+ * pop3.el (pop3-retr): Error out if the server closes the connection.
+
2011-05-29 Lars Magne Ingebrigtsen <[email protected]>
* shr.el (shr-urlify): Use shr-add-font to make underlines be less ugly
diff --git a/lisp/pop3.el b/lisp/pop3.el
index 6f12d3d..43b01fb 100644
--- a/lisp/pop3.el
+++ b/lisp/pop3.el
@@ -514,6 +514,8 @@ Otherwise, return the size of the message-id MSG"
(let ((start pop3-read-point) end)
(with-current-buffer (process-buffer process)
(while (not (re-search-forward "^\\.\r\n" nil t))
+ (unless (memq (process-status process) '(open run))
+ (error "pop3 server closed the connection"))
(pop3-accept-process-output process)
(goto-char start))
(setq pop3-read-point (point-marker))
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 4 ++++
lisp/pop3.el | 2 ++
2 files changed, 6 insertions(+), 0 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project