Mercurial > emacs
comparison lisp/mail/smtpmail.el @ 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 | ee1b06064fbb |
| children | 076200146323 |
comparison
equal
deleted
inserted
replaced
| 47116:733fb94b0b6a | 47117:c6c0e4cc9d0a |
|---|---|
| 747 ; (if (or (null (car (setq response-code (smtpmail-read-response process)))) | 747 ; (if (or (null (car (setq response-code (smtpmail-read-response process)))) |
| 748 ; (not (integerp (car response-code))) | 748 ; (not (integerp (car response-code))) |
| 749 ; (>= (car response-code) 400)) | 749 ; (>= (car response-code) 400)) |
| 750 ; (throw 'done nil) | 750 ; (throw 'done nil) |
| 751 ; ) | 751 ; ) |
| 752 (delete-process process)))))) | 752 (delete-process process) |
| 753 (unless smtpmail-debug-info | |
| 754 (kill-buffer process-buffer))))))) | |
| 753 | 755 |
| 754 | 756 |
| 755 (defun smtpmail-process-filter (process output) | 757 (defun smtpmail-process-filter (process output) |
| 756 (with-current-buffer (process-buffer process) | 758 (with-current-buffer (process-buffer process) |
| 757 (goto-char (point-max)) | 759 (goto-char (point-max)) |