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

diff --git a/smtp.el b/smtp.el
index 53833ba..ec4eab8 100644 (file)
--- 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))