X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fflim.git;a=blobdiff_plain;f=smtp.el;h=0fcf274a557f91c58abfe587c58cabaf0947a3da;hp=3704d46c44009761a136bcc86a030227f7f007ac;hb=c9fdb1f609e9f285e4b448e6733eb8dc3da58681;hpb=6ef1daccd72054e60d0ef6f87bb052982340f49c

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