Fix the last change.

diff --git a/sasl.el b/sasl.el
index 4cc628b..71ed50c 100644 (file)
--- 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 (file)
--- 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