diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-07-15 20:00:34 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-07-15 20:00:34 +0000 |
commit | ab54e45211a66f2a2f04b06a1929cb86f6950e71 (patch) | |
tree | ac325f6ef3433327aae7ee778b53256e3fdbbcc6 | |
parent | dda881c681f9259ccb20523d8d2b87baabc6c66e (diff) | |
download | emacs-ab54e45211a66f2a2f04b06a1929cb86f6950e71.tar.gz |
(smtpmail-send-data-1): Escape "." at the start of
any line of data, not just lines containing nothing else.
-rw-r--r-- | lisp/mail/smtpmail.el | 6 |
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") ) |