Mercurial > emacs
changeset 15676:46d74bda4351
(smtpmail-send-data-1): Escape "." at the start of
any line of data, not just lines containing nothing else.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 15 Jul 1996 20:00:34 +0000 |
| parents | e5b420bac4e9 |
| children | 4431e88ce8d2 |
| files | lisp/mail/smtpmail.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el Mon Jul 15 19:57:23 1996 +0000 +++ b/lisp/mail/smtpmail.el Mon Jul 15 20:00:34 1996 +0000 @@ -404,10 +404,10 @@ (insert data "\r\n")) (setq smtpmail-read-point (point)) + ;; Escape "." at start of a line + (if (eq (string-to-char data) ?.) + (process-send-string process ".")) (process-send-string process data) - ;; . -> .. - (if (string-equal data ".") - (process-send-string process ".")) (process-send-string process "\r\n") )