aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-06-10 15:53:37 +0000
committerRichard M. Stallman1996-06-10 15:53:37 +0000
commitca09ceaf4b297d15e372650865e0a45a74fa9f01 (patch)
tree7f1d249609995e96dbdc79d84e1888476c36f1ce
parentf7894e88206bc3bb072057f285b1f1bc0c4c1fa3 (diff)
downloademacs-ca09ceaf4b297d15e372650865e0a45a74fa9f01.tar.gz
emacs-ca09ceaf4b297d15e372650865e0a45a74fa9f01.zip
Comment change.
-rw-r--r--lisp/mail/smtpmail.el4
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