summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-06-10 15:53:37 +0000
committerRichard M. Stallman <rms@gnu.org>1996-06-10 15:53:37 +0000
commit491da9fe0791719f1cbb3c40b545e415696bfdcf (patch)
treefe8a9f56d4fa9890f32d68ab0343ede6ebdb7070
parent147e2ffebd6ea35de8aca216a5588050208c2bb0 (diff)
downloademacs-491da9fe0791719f1cbb3c40b545e415696bfdcf.tar.gz
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.")
(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 @@ don't define this value.")
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 @@ don't define this value.")
(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))