* 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 (file)
--- 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 (file)
--- 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