diff options
Diffstat (limited to 'lisp')
| -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 | ||