From c9fdb1f609e9f285e4b448e6733eb8dc3da58681 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 25 Jul 2005 01:51:09 +0000 Subject: [PATCH] * smtp.el (smtp-read-response): Signal an error if connection is closed while reading response. [cf. ] --- ChangeLog | 5 +++++ smtp.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/ChangeLog b/ChangeLog index 661109a..1962cb0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2005-07-25 Daiki Ueno + + * smtp.el (smtp-read-response): Signal an error if connection is + closed while reading response. [cf. ] + 2004-11-20 Daiki Ueno * ntlm.el (ntlm-ascii2unicode): Don't apply zerop to a character. diff --git a/smtp.el b/smtp.el index 3704d46..0fcf274 100644 --- a/smtp.el +++ b/smtp.el @@ -654,6 +654,8 @@ BUFFER may be a buffer or a buffer name which contains mail message." (while response-continue (goto-char smtp-read-point) (while (not (search-forward smtp-end-of-line nil t)) + (unless (smtp-connection-opened connection) + (signal 'smtp-error "Connection closed")) (accept-process-output (smtp-connection-process-internal connection)) (goto-char smtp-read-point)) (if decoder -- 1.7.10.4