From 57810560535b0edda4718aaf98410809c739a4e6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 15 Jul 1996 20:00:34 +0000 Subject: [PATCH] (smtpmail-send-data-1): Escape "." at the start of any line of data, not just lines containing nothing else. --- lisp/mail/smtpmail.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index e6c07670449..925a6ec2e83 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -404,10 +404,10 @@ don't define this value.") (insert data "\r\n")) (setq smtpmail-read-point (point)) - (process-send-string process data) - ;; . -> .. - (if (string-equal data ".") + ;; Escape "." at start of a line + (if (eq (string-to-char data) ?.) (process-send-string process ".")) + (process-send-string process data) (process-send-string process "\r\n") ) -- 2.39.5