mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* mail/smtpmail.el (smtpmail-send-command): Send the command and

Browse Source 
the following \r\n using a single `process-send-string', since the
Lotus SMTP server refuses to accept any commands if they are sent
with two `process-send-string's.

Fixes: debbugs:11444
This commit is contained in:
Jason L. Wright 2012-05-09 21:12:20 +02:00 committed by Lars Magne Ingebrigtsen
parent fe263b8f57
commit 8633b1f456
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2012-05-09 Jason L. Wright <jason.wright@inl.gov> (tiny change)
* mail/smtpmail.el (smtpmail-send-command): Send the command and
the following \r\n using a single `process-send-string', since the
Lotus SMTP server refuses to accept any commands if they are sent
with two `process-send-string's (bug#11444).
2012-05-09 Stefan Monnier <monnier@iro.umontreal.ca>
* shell.el (shell-parse-pcomplete-arguments): Obey

3
lisp/mail/smtpmail.el
View File

@ -932,8 +932,7 @@ Returns an error if the server cannot be contacted."
(insert (match-string 0 command) "<omitted>\r\n")
(insert command "\r\n"))
(setq smtpmail-read-point (point))
(process-send-string process command)
(process-send-string process "\r\n"))
(process-send-string process (concat command "\r\n")))
(defun smtpmail-send-data-1 (process data)
(goto-char (point-max))