(smtpmail-send-data-1): Escape "." at the start of

any line of data, not just lines containing nothing else.

1 files 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")
   )