* smtp.el (smtp-primitive-starttls): Call `smtp-primitive-helo'

	after `starttls-negotiate'.

diff --git a/ChangeLog b/ChangeLog
index dcd146a..7f4480e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2000-11-22  Kenichi OKADA   <okada@opaopa.org>
+
+       * smtp.el (smtp-primitive-starttls): Call `smtp-primitive-helo' 
+       after `starttls-negotiate'.
+
+2000-11-20  Kenichi OKADA   <okada@opaopa.org>
+
+       * sasl-digest.el (sasl-digest-md5-response): Fix typo.
+
 2000-11-20  Kenichi OKADA   <okada@opaopa.org>
 
        * FLIM-ELS (flim-modules): Add `sasl-cram', `sasl-digest' , `qmtp'.

diff --git a/smtp.el b/smtp.el
index 2a979d4..990a923 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -413,7 +413,9 @@ of the host to connect to.  SERVICE is name of the service desired."
     (setq response (smtp-read-response process))
     (if (/= (car response) 220)
        (smtp-response-error response))
-    (starttls-negotiate process)))
+    (starttls-negotiate process)
+    ;; for sendmail warning XXX
+    (smtp-primitive-helo package)))
 
 (defun smtp-primitive-mailfrom (package)
   (let* ((connection