From 302310223c58c31f896a7d361a0bb8b56ef1010b Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 15 Aug 2000 13:23:47 +0000 Subject: [PATCH] * smtp.el (smtp-check-response): Rewrite. --- smtp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4