[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