[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: SMTP and trace buffer



At Sun, 17 Jan 2010 12:09:36 -0500,
David Abrahams wrote:
> 
> At Sat, 16 Jan 2010 14:19:09 +0100,
> Herbert J. Skuhra wrote:
> > 
> > Hi!
> > 
> > When I send an e-mail in wl the buffer "*trace of SMTP session to
> > server*" is created and the whole smtp transmission (except the DATA
> > part) is logged to it. How can I turned this of?
> 
> Looks like you'd need to patch FLIM's smtp.el; those buffers seem to
> get created unconditionally.

Thanks. At the moment I use:

--- smtp.el.bak	2010-01-17 21:51:29.326554466 +0100
+++ smtp.el	2010-01-17 22:09:54.722296383 +0100
@@ -374,7 +374,8 @@
 	  (smtp-open-connection (current-buffer) server smtp-service))
 	(make-local-variable 'smtp-read-point)
 	(setq smtp-read-point (point-min))
-	(funcall smtp-submit-package-function package)))))
+	(funcall smtp-submit-package-function package)
+        (kill-buffer)))))
 
 (defun smtp-submit-package (package)
   (unwind-protect
@@ -438,7 +439,8 @@
 	  (setq smtp-read-point (point-min))
 	  (let ((smtp-use-sasl nil)
 		(smtp-use-starttls-ignore-error t))
-	    (funcall smtp-submit-package-function package)))
+	    (funcall smtp-submit-package-function package))
+            (kill-buffer))
 	(setq servers (cdr servers)))))
 
 ;;; @ hook methods for `smtp-submit-package'



-Herbert