# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834422017 0
# Node ID abcc218dcbbc9b9e5fb6ae08328e0df7115f0e29
# Parent  3ae0045657651741eb5b59c53cd4c8db87c0ccf4
Comment change.

diff -r 3ae004565765 -r abcc218dcbbc lisp/mail/smtpmail.el
--- a/lisp/mail/smtpmail.el	Sun Jun 09 20:52:47 1996 +0000
+++ b/lisp/mail/smtpmail.el	Mon Jun 10 15:53:37 1996 +0000
@@ -284,14 +284,12 @@
 	    (delete-process process))))))
 
 
-;; check completely by T.Kagatani 
 (defun smtpmail-process-filter (process output)
   (save-excursion
     (set-buffer (process-buffer process))
     (goto-char (point-max))
     (insert output)))
 
-;; check completely by T.Kagatani 
 (defun smtpmail-read-response (process)
   (let ((case-fold-search nil)
 	(response-string nil)
@@ -342,7 +340,6 @@
     return-value))
 
 
-;; check completely by T.Kagatani 
 (defun smtpmail-send-command (process command)
   (goto-char (point-max))
   (if (= (aref command 0) ?P)
@@ -352,7 +349,6 @@
   (process-send-string process command)
   (process-send-string process "\r\n"))
 
-;; check completely by T.Kagatani 
 (defun smtpmail-send-data-1 (process data)
   (goto-char (point-max))