add HELO for sendmail

diff --git a/ChangeLog b/ChangeLog
index 8561e13..9d6006e 100644 (file)
--- 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 (file)
--- 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