From 4ae77650c6b4c28d1fdaed60b1130f0823210533 Mon Sep 17 00:00:00 2001 From: okada Date: Wed, 22 Nov 2000 12:38:31 +0000 Subject: [PATCH] * smtp.el (smtp-primitive-starttls): Call `smtp-primitive-helo' after `starttls-negotiate'. --- ChangeLog | 9 +++++++++ smtp.el | 4 +++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index dcd146a..7f4480e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2000-11-22 Kenichi OKADA + + * smtp.el (smtp-primitive-starttls): Call `smtp-primitive-helo' + after `starttls-negotiate'. + +2000-11-20 Kenichi OKADA + + * sasl-digest.el (sasl-digest-md5-response): Fix typo. + 2000-11-20 Kenichi OKADA * 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 -- 1.7.10.4