diff options
| author | Simon Josefsson <[email protected]> | 2002-08-30 10:32:25 +0000 |
|---|---|---|
| committer | Simon Josefsson <[email protected]> | 2002-08-30 10:32:25 +0000 |
| commit | 1121afb461cb7dea8362486180eb0febaeec4b46 (patch) | |
| tree | a55ce57bd522c263040c2e436de3c1a268d356c5 /lisp/mail | |
| parent | 2d187490c2a1ac5e1a35b99186cbdd4aa9ebcef4 (diff) | |
(smtpmail-via-smtp): Delete process buffer
unless s-debug-info is enabled.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f43c5f1785..3460a75a52 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -749,7 +749,9 @@ This is relative to `smtpmail-queue-dir'.") ; (>= (car response-code) 400)) ; (throw 'done nil) ; ) - (delete-process process)))))) + (delete-process process) + (unless smtpmail-debug-info + (kill-buffer process-buffer))))))) (defun smtpmail-process-filter (process output) |