From: okada <okada>
Date: Wed, 22 Nov 2000 12:38:31 +0000 (+0000)
Subject: 	* smtp.el (smtp-primitive-starttls): Call `smtp-primitive-helo'
X-Git-Tag: slim-1_14_5~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4ae77650c6b4c28d1fdaed60b1130f0823210533;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index dcd146a..7f4480e 100644
--- 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
--- 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