From: okada <okada>
Date: Sun, 19 Nov 2000 17:04:55 +0000 (+0000)
Subject: 	* wl-draft.el (wl-smtp-extension-bind): Use `smtp-sasl-properties'
X-Git-Tag: wl-2_6-root~190
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f03a4b0406426a9dc119b0985aa426f8745e6aa5;p=elisp%2Fwanderlust.git

	* 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
--- 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
--- 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)