mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
(smtpmail-via-smtp): Make sure we don't send QUIT twice.
This commit is contained in:
parent
8998d1b3e8
commit
396f7c9d28
@ -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>
|
||||
|
||||
* window.el (display-buffer-default-specifiers)
|
||||
|
@ -741,6 +741,7 @@ The list is in preference order.")
|
||||
(smtpmail-send-command process "QUIT")
|
||||
(smtpmail-read-response process)
|
||||
(delete-process process)
|
||||
(setq process nil)
|
||||
(throw 'done
|
||||
(smtpmail-via-smtp recipient smtpmail-text-buffer t)))
|
||||
(t
|
||||
@ -768,6 +769,7 @@ The list is in preference order.")
|
||||
(smtpmail-send-command process "QUIT")
|
||||
(smtpmail-read-response process)
|
||||
(delete-process process)
|
||||
(setq process nil)
|
||||
(throw 'done
|
||||
(smtpmail-via-smtp recipient smtpmail-text-buffer t)))
|
||||
(t
|
||||
|
Loading…
Reference in New Issue
Block a user