From: okada <okada>
Date: Tue, 27 Jun 2000 01:36:25 +0000 (+0000)
Subject: add HELO for sendmail
X-Git-Tag: slim-1_14_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e9bc5bb842fbc11e981b206b9a5d403f87b236d7;p=elisp%2Fflim.git

add HELO for sendmail
---

diff --git a/ChangeLog b/ChangeLog
index 8561e13..9d6006e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-06-27  Kenichi OKADA <okada@opaopa.org>
+
+	* smtp.el (smtp-via-smtp): additional HELO for sendmail warning.
+
 2000-06-25  Kenichi OKADA <okada@opaopa.org>
 
 	* SLIM-VERION: Add code name.
diff --git a/smtp.el b/smtp.el
index ee09fd2..6281fc9 100644
--- a/smtp.el
+++ b/smtp.el
@@ -199,7 +199,10 @@ don't define this value."
 		      (not (integerp (car response)))
 		      (>= (car response) 400))
 		  (throw 'done (car (cdr response))))
-	      (starttls-negotiate process))
+	      (starttls-negotiate process)
+	      ;; for sendmail warning XXX
+	      (smtp-send-command process (format "HELO %s" (smtp-make-fqdn)))
+	      (setq response (smtp-read-response process)))
 
 	    ;; AUTH --- SMTP Service Extension for Authentication (RFC2554)
 	    (when smtp-authenticate-type