From: ueno <ueno>
Date: Tue, 15 Aug 2000 13:23:47 +0000 (+0000)
Subject: * smtp.el (smtp-check-response): Rewrite.
X-Git-Tag: deisui-1_14_0-1~54
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=302310223c58c31f896a7d361a0bb8b56ef1010b;p=elisp%2Fflim.git

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

diff --git a/smtp.el b/smtp.el
index 53833ba..ec4eab8 100644
--- a/smtp.el
+++ b/smtp.el
@@ -305,7 +305,7 @@ don't define this value."
     response))
 
 (defun smtp-check-response (response)
-  (> (car response) 200))
+  (= (/ (car response) 100) 2))
 
 (defun smtp-send-command (process command)
   (goto-char (point-max))