(smtpmail-via-smtp): Delete process buffer

unless s-debug-info is enabled.

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'.

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)