From: ueno <ueno>
Date: Thu, 2 Nov 2000 17:38:10 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: deisui-1_14_0-1~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f6941d3120923057d3bbdaa54b487a879be315d5;p=elisp%2Fflim.git

Fix the last change.
---

diff --git a/sasl.el b/sasl.el
index 4cc628b..71ed50c 100644
--- a/sasl.el
+++ b/sasl.el
@@ -74,7 +74,7 @@ SERVER is the fully qualified host name of the server to authenticate to."
 The second argument PLIST is the new property list."
   `(setplist (aref ,instantiator 3) ,plist))
 
-(defmacro sasl-instantiator-put-property (instantiator property value)
+(defmacro sasl-instantiator-set-property (instantiator property value)
   "Add the given property/value to INSTANTIATOR."
   `(put (aref ,instantiator 3) ,property ,value))
 
diff --git a/smtp.el b/smtp.el
index ba29444..e398f8e 100644
--- a/smtp.el
+++ b/smtp.el
@@ -381,7 +381,7 @@ of the host to connect to.  SERVICE is name of the service desired."
 	  (sasl-make-instantiator
 	   smtp-sasl-user-name "smtp" (smtp-connection-server connection)))
     (if smtp-sasl-user-realm
-	(sasl-instantiator-set-properties
+	(sasl-instantiator-set-property
 	 instantiator (list 'realm smtp-sasl-user-realm)))
     (setq mechanism (sasl-authenticator-mechanism authenticator)
 	  ;; Retrieve the initial response