From f03a4b0406426a9dc119b0985aa426f8745e6aa5 Mon Sep 17 00:00:00 2001 From: okada Date: Sun, 19 Nov 2000 17:04:55 +0000 Subject: [PATCH] * wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties' instead of `smtp-sasl-user-realm'. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index a344490..7851528 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,10 @@ 2000-11-19 Kenichi OKADA + * wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties' + instead of `smtp-sasl-user-realm'. + +2000-11-19 Kenichi OKADA + * wl-draft.el (wl-smtp-extension-bind): Rewrite for new SASL API. 2000-11-19 Kenichi OKADA diff --git a/wl/wl-draft.el b/wl/wl-draft.el index 41d0993..263bae2 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -151,15 +151,16 @@ (list wl-smtp-authenticate-type))))) (smtp-use-sasl (and smtp-sasl-mechanisms t)) (smtp-use-starttls wl-smtp-connection-type) - smtp-sasl-user-name smtp-sasl-user-realm sasl-read-passphrase) + smtp-sasl-user-name smtp-sasl-properties sasl-read-passphrase) (if (and (string= (car smtp-sasl-mechanisms) "DIGEST-MD5") ;; sendmail bug? (string-match "^\\([^@]*\\)@\\([^@]*\\)" wl-smtp-posting-user)) (setq smtp-sasl-user-name (match-string 1 wl-smtp-posting-user) - smtp-sasl-user-realm (match-string 2 wl-smtp-posting-user)) + smtp-sasl-properties (list 'realm + (match-string 2 wl-smtp-posting-user))) (setq smtp-sasl-user-name wl-smtp-posting-user - smtp-sasl-user-realm nil)) + smtp-sasl-properties nil)) (setq sasl-read-passphrase (function (lambda (prompt) -- 1.7.10.4