(smtpmail-via-smtp): Delete process buffer

unless s-debug-info is enabled.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a20a5dc7288920da51066e229be029758b37a60..0fdfb05832652062dd968fa30a638d74cc9d138e 100644 (file)
--- 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 f43c5f1785865b971490f8959c7f155138c2d3a6..3460a75a522436ad19b3357cce4905f2c74bc2b5 100644 (file)
--- 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)