diff options
| author | Richard M. Stallman | 1996-06-10 15:53:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-10 15:53:37 +0000 |
| commit | ca09ceaf4b297d15e372650865e0a45a74fa9f01 (patch) | |
| tree | 7f1d249609995e96dbdc79d84e1888476c36f1ce | |
| parent | f7894e88206bc3bb072057f285b1f1bc0c4c1fa3 (diff) | |
| download | emacs-ca09ceaf4b297d15e372650865e0a45a74fa9f01.tar.gz emacs-ca09ceaf4b297d15e372650865e0a45a74fa9f01.zip | |
Comment change.
| -rw-r--r-- | lisp/mail/smtpmail.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 74b065a471a..660dfa1b1f7 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el | |||
| @@ -284,14 +284,12 @@ don't define this value.") | |||
| 284 | (delete-process process)))))) | 284 | (delete-process process)))))) |
| 285 | 285 | ||
| 286 | 286 | ||
| 287 | ;; check completely by T.Kagatani | ||
| 288 | (defun smtpmail-process-filter (process output) | 287 | (defun smtpmail-process-filter (process output) |
| 289 | (save-excursion | 288 | (save-excursion |
| 290 | (set-buffer (process-buffer process)) | 289 | (set-buffer (process-buffer process)) |
| 291 | (goto-char (point-max)) | 290 | (goto-char (point-max)) |
| 292 | (insert output))) | 291 | (insert output))) |
| 293 | 292 | ||
| 294 | ;; check completely by T.Kagatani | ||
| 295 | (defun smtpmail-read-response (process) | 293 | (defun smtpmail-read-response (process) |
| 296 | (let ((case-fold-search nil) | 294 | (let ((case-fold-search nil) |
| 297 | (response-string nil) | 295 | (response-string nil) |
| @@ -342,7 +340,6 @@ don't define this value.") | |||
| 342 | return-value)) | 340 | return-value)) |
| 343 | 341 | ||
| 344 | 342 | ||
| 345 | ;; check completely by T.Kagatani | ||
| 346 | (defun smtpmail-send-command (process command) | 343 | (defun smtpmail-send-command (process command) |
| 347 | (goto-char (point-max)) | 344 | (goto-char (point-max)) |
| 348 | (if (= (aref command 0) ?P) | 345 | (if (= (aref command 0) ?P) |
| @@ -352,7 +349,6 @@ don't define this value.") | |||
| 352 | (process-send-string process command) | 349 | (process-send-string process command) |
| 353 | (process-send-string process "\r\n")) | 350 | (process-send-string process "\r\n")) |
| 354 | 351 | ||
| 355 | ;; check completely by T.Kagatani | ||
| 356 | (defun smtpmail-send-data-1 (process data) | 352 | (defun smtpmail-send-data-1 (process data) |
| 357 | (goto-char (point-max)) | 353 | (goto-char (point-max)) |
| 358 | 354 | ||