changeset 47117:c6c0e4cc9d0a

(smtpmail-via-smtp): Delete process buffer unless s-debug-info is enabled.
author Simon Josefsson <jas@extundo.com>
date Fri, 30 Aug 2002 10:31:02 +0000
parents 733fb94b0b6a
children 215a73bfc592
files lisp/mail/smtpmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)