diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-06-22 11:13:50 +0200 |
|---|---|---|
| committer | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2011-06-22 11:13:50 +0200 |
| commit | 396f7c9d288de829438b3d72c5ffb7ceb3bfa655 (patch) | |
| tree | 96f97425effcb1e2dc1107adb637df14d5df450c /lisp/mail/smtpmail.el | |
| parent | 8998d1b3e8d8f53f3bf46b6a0b7ea89c8676811f (diff) | |
| download | emacs-396f7c9d288de829438b3d72c5ffb7ceb3bfa655.tar.gz emacs-396f7c9d288de829438b3d72c5ffb7ceb3bfa655.tar.bz2 emacs-396f7c9d288de829438b3d72c5ffb7ceb3bfa655.zip | |
(smtpmail-via-smtp): Make sure we don't send QUIT twice.
Diffstat (limited to 'lisp/mail/smtpmail.el')
| -rw-r--r-- | lisp/mail/smtpmail.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 7385eab4977..58a517ba836 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -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 |