From 1121afb461cb7dea8362486180eb0febaeec4b46 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Fri, 30 Aug 2002 10:32:25 +0000 Subject: [PATCH] (smtpmail-via-smtp): Delete process buffer unless s-debug-info is enabled. --- lisp/ChangeLog | 5 +++++ lisp/mail/smtpmail.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a20a5dc728..0fdfb058326 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-08-30 Simon Josefsson + + * mail/smtpmail.el (smtpmail-via-smtp): Delete process buffer + unless s-debug-info is enabled. + 2002-08-29 John Paul Wallington * ibuffer.el (ibuffer-update): Use `minibufferp'. Expand `caddr'. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f43c5f17858..3460a75a522 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) -- 2.39.2