From: ueno <ueno>
Date: Mon, 25 Jul 2005 01:51:09 +0000 (+0000)
Subject: * smtp.el (smtp-read-response): Signal an error if connection is
X-Git-Tag: flim-1_14_8~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c9fdb1f609e9f285e4b448e6733eb8dc3da58681;p=elisp%2Fflim.git

* smtp.el (smtp-read-response): Signal an error if connection is
closed while reading response.  [cf. <emacs-mime-ja:01978>]
---

diff --git a/ChangeLog b/ChangeLog
index 661109a..1962cb0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-25  Daiki Ueno  <ueno@unixuser.org>
+
+	* smtp.el (smtp-read-response): Signal an error if connection is
+	closed while reading response.  [cf. <emacs-mime-ja:01978>]
+
 2004-11-20  Daiki Ueno  <ueno@unixuser.org>
 
 	* 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