diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1a20a5dc728..0fdfb058326 100644 --- a/lisp/ChangeLog +++ b/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'. diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index f43c5f17858..3460a75a522 100644 --- a/lisp/mail/smtpmail.el +++ b/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) |