[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107986: * mail/smtpmail.el (smtpmail-send-command): Send the command and

[Lars Magne Ingebrigtsen]

------------------------------------------------------------
revno: 107986
fixes bug(s): http://debbugs.gnu.org/11444
author: Jason L. Wright <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: emacs-24
timestamp: Wed 2012-05-09 21:12:20 +0200
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/mail/smtpmail.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-05-09 17:20:24 +0000
+++ b/lisp/ChangeLog    2012-05-09 19:12:20 +0000
@@ -1,3 +1,10 @@
+2012-05-09  Jason L. Wright  <address@hidden>  (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  <address@hidden>
 
        * shell.el (shell-parse-pcomplete-arguments): Obey

=== modified file 'lisp/mail/smtpmail.el'
--- a/lisp/mail/smtpmail.el     2012-03-09 11:06:44 +0000
+++ b/lisp/mail/smtpmail.el     2012-05-09 19:12:20 +0000
@@ -932,8 +932,7 @@
       (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))