Commit 57810560 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

any line of data, not just lines containing nothing else.
parent 133319ab
......@@ -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")
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment