* wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties'

	instead of `smtp-sasl-user-realm'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index a344490..7851528 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2000-11-19  Kenichi OKADA  <okada@opaopa.org>
 
+       * wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties'
+       instead of `smtp-sasl-user-realm'.
+
+2000-11-19  Kenichi OKADA  <okada@opaopa.org>
+
        * wl-draft.el (wl-smtp-extension-bind): Rewrite for new SASL API.
 
 2000-11-19  Kenichi OKADA  <okada@opaopa.org>

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 41d0993..263bae2 100644 (file)
--- 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)