(smtpmail-via-smtp): Delete process buffer

unless s-debug-info is enabled.

2 files changed, 8 insertions, 1 deletions

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  <jas@extundo.com>
+
+        * mail/smtpmail.el (smtpmail-via-smtp): Delete process buffer
+        unless s-debug-info is enabled.
+
 2002-08-29  John Paul Wallington  <jpw@shootybangbang.com>
 
         * 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)