From: ueno <ueno>
Date: Wed, 16 Aug 2000 18:22:46 +0000 (+0000)
Subject: * smtp.el (smtp-check-response): Abolish.
X-Git-Tag: deisui-1_14_0-1~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=946bb90dfbded965003d978cab8700ba28c2b3f3;p=elisp%2Fflim.git

* smtp.el (smtp-check-response): Abolish.
---

diff --git a/smtp.el b/smtp.el
index 2462c43..40fa313 100644
--- a/smtp.el
+++ b/smtp.el
@@ -105,10 +105,10 @@ don't define this value."
   (let ((response
 	 (smtp-read-response
 	  (smtp-stream-process-internal trans))))
-    (or (smtp-check-response response)
+    (or (= (car response) 220)
 	(tram-stream-error trans 'greeting))
     trans))
-  
+
 (defun smtp-ehlo (trans)
   (smtp-send-command
    (smtp-stream-process-internal trans)
@@ -116,7 +116,7 @@ don't define this value."
   (let ((response
 	 (smtp-read-response 
 	  (smtp-stream-process-internal trans))))
-    (or (smtp-check-response response)
+    (or (= (car response) 250)
 	(tram-stream-error trans 'ehlo))
     (smtp-stream-set-extensions-internal
      trans (mapcar
@@ -132,7 +132,7 @@ don't define this value."
   (let ((response
 	 (smtp-read-response
 	  (smtp-stream-process-internal trans))))
-    (or (smtp-check-response response)
+    (or (= (car response) 250)
 	(tram-stream-error trans 'helo))
     trans))
 
@@ -166,7 +166,7 @@ don't define this value."
   (let ((response
 	 (smtp-read-response
 	  (smtp-stream-process-internal trans))))
-    (or (smtp-check-response response)
+    (or (= (car response) 250)
 	(tram-stream-error trans 'mailfrom))
     trans))
 
@@ -182,7 +182,7 @@ don't define this value."
     (setq response
 	  (smtp-read-response
 	   (smtp-stream-process-internal trans)))
-    (or (smtp-check-response response)
+    (or (memq (car response) '(250 251))
 	(tram-stream-error trans 'rcptto))
     trans))
 
@@ -193,7 +193,7 @@ don't define this value."
   (let ((response
 	 (smtp-read-response
 	  (smtp-stream-process-internal trans))))
-    (or (smtp-check-response response)
+    (or (= (car response) 354)
 	(tram-stream-error trans 'data))
 
     ;; Mail contents
@@ -207,7 +207,7 @@ don't define this value."
     (setq response
 	  (smtp-read-response
 	   (smtp-stream-process-internal trans)))
-    (or (smtp-check-response response)
+    (or (= (car response) 250)
 	(tram-stream-error trans 'data))
     trans))
 
@@ -290,9 +290,6 @@ don't define this value."
       (setq smtp-read-point match-end))
     response))
 
-(defun smtp-check-response (response)
-  (memq (/ (car response) 100) '(2 3)));; XXX
-
 (defun smtp-send-command (process command)
   (goto-char (point-max))
   (insert command "\r\n")