mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(smtpmail-via-smtp): Make sure we don't send QUIT twice.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2011-06-22 11:13:50 +02:00
parent 8998d1b3e8
commit 396f7c9d28
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-06-22 Lars Magne Ingebrigtsen <larsi@gnus.org>
* mail/smtpmail.el (smtpmail-via-smtp): Make sure we don't send
QUIT twice.
2011-06-22 Martin Rudalics <rudalics@gmx.at> 2011-06-22 Martin Rudalics <rudalics@gmx.at>
* window.el (display-buffer-default-specifiers) * window.el (display-buffer-default-specifiers)

2
lisp/mail/smtpmail.el
View File

@ -741,6 +741,7 @@ The list is in preference order.")
(smtpmail-send-command process "QUIT") (smtpmail-send-command process "QUIT")
(smtpmail-read-response process) (smtpmail-read-response process)
(delete-process process) (delete-process process)
(setq process nil)
(throw 'done (throw 'done
(smtpmail-via-smtp recipient smtpmail-text-buffer t))) (smtpmail-via-smtp recipient smtpmail-text-buffer t)))
(t (t
@ -768,6 +769,7 @@ The list is in preference order.")
(smtpmail-send-command process "QUIT") (smtpmail-send-command process "QUIT")
(smtpmail-read-response process) (smtpmail-read-response process)
(delete-process process) (delete-process process)
(setq process nil)
(throw 'done (throw 'done
(smtpmail-via-smtp recipient smtpmail-text-buffer t))) (smtpmail-via-smtp recipient smtpmail-text-buffer t)))
(t (t