diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-05-14 19:59:28 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-05-14 19:59:28 +0800 |
| commit | e18afed7d695edac870ddf55aabc85c0a95a4b5f (patch) | |
| tree | 81dfa2c4b4cbc9014cb621f20eb2c5b173823a66 /lisp/mail | |
| parent | ac9f0b75eb3a7fb50226cda2cfa1980c2df2b429 (diff) | |
| parent | c8fb9dc689cdd9facc56d7220bdf3bb5864231f0 (diff) | |
| download | emacs-e18afed7d695edac870ddf55aabc85c0a95a4b5f.tar.gz | |
Merge from emacs-24; up to 2012-04-22T13:58:00Z!cyd@gnu.org
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 8e96e2c9438..804fe7a8798 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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)) |