projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed.
[elisp/flim.git]
/
smtp.el
diff --git
a/smtp.el
b/smtp.el
index
b3d83e0
..
0fcf274
100644
(file)
--- 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
;; 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:
;;; 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))
(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
(accept-process-output (smtp-connection-process-internal connection))
(goto-char smtp-read-point))
(if decoder