mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
any line of data, not just lines containing nothing else.
This commit is contained in:
Karl Heuer 1996-07-15 20:00:34 +00:00
parent 133319abf8
commit 5781056053
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mail/smtpmail.el
View file

@ -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")
)