X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=smtp.el;h=0fcf274a557f91c58abfe587c58cabaf0947a3da;hb=2e575ffb102248a212cb81b0664ddf2efb65167d;hp=b3d83e0c3bb8c94d18cd16f5cb41e0f62c32e97b;hpb=85875452312e16565a8df02cbea117f7aad9ecd8;p=elisp%2Fflim.git

diff --git a/smtp.el b/smtp.el
index b3d83e0..0fcf274 100644
--- a/smtp.el
+++ b/smtp.el
@@ -23,8 +23,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with this program; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 
 ;;; Commentary:
@@ -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