* smtp.el (TopLevel): Eval `sasl' when compile.

diff --git a/ChangeLog b/ChangeLog
index 438c20b..ceb9697 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2000-01-21  Kenichi OKADA <okada@opaopa.org>
 
+       * smtp.el (TopLevel): Eval `sasl' when compile.
+
+2000-01-21  Kenichi OKADA <okada@opaopa.org>
+
        * sasl.el (TopLevel): Delete function `sasl-digest-md5-parse-digest-challenge'.
        * smtp.el (smtp-auth-digest-md5): Don't use `sasl-digest-md5-parse-digest-challenge'.
 

diff --git a/smtp.el b/smtp.el
index c057d01..e8fc8db 100644 (file)
--- a/smtp.el
+++ b/smtp.el
@@ -34,6 +34,7 @@
 (require 'pcustom)
 (require 'mail-utils)                  ; mail-strip-quoted-names
 
+(eval-when-compile (require 'sasl))
 (eval-and-compile
   (autoload 'starttls-open-stream "starttls")
   (autoload 'starttls-negotiate "starttls")
@@ -110,7 +111,7 @@ don't define this value."
   "*SMTP connection type."
   :type '(choice (const nil) (const :tag "TLS" starttls))
   :group 'smtp)
- 
+
 (defvar smtp-read-point nil)
 
 (defun smtp-make-fqdn ()
@@ -658,7 +659,7 @@ don't define this value."
 
 (defun smtp-auth-digest-md5 (process)
   "Login to server using the AUTH DIGEST-MD5 method."
-  (let (user realm responce)
+  (let (user realm response)
     (smtp-send-command process "AUTH DIGEST-MD5")
     (setq response (smtp-read-response process))
     (if (or (null (car response))