# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1030703462 0
# Node ID c6c0e4cc9d0aaf90f5e0b89ba30c8604103c0ca5
# Parent  733fb94b0b6afe344b82f1bf539c9fe9af29d900
(smtpmail-via-smtp): Delete process buffer
unless s-debug-info is enabled.

diff -r 733fb94b0b6a -r c6c0e4cc9d0a lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Fri Aug 30 06:06:15 2002 +0000
+++ b/lisp/mail/smtpmail.el	Fri Aug 30 10:31:02 2002 +0000
@@ -749,7 +749,9 @@
 ;		    (>= (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)