# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837460834 0
# Node ID 46d74bda4351f015e820e2a5d2b991ec7077d58e
# Parent  e5b420bac4e9e7542e6ee21897182e6c42cdbb74
(smtpmail-send-data-1): Escape "." at the start of
any line of data, not just lines containing nothing else.

diff -r e5b420bac4e9 -r 46d74bda4351 lisp/mail/smtpmail.el
--- 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")
   )