From: okada <okada>
Date: Fri, 21 Jan 2000 14:16:47 +0000 (+0000)
Subject: 	* smtp.el (TopLevel): Eval `sasl' when compile.
X-Git-Tag: slim-1_13_6~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=72a58545abba954aa9961d3e843918987eeb7a79;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 438c20b..ceb9697 100644
--- 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
--- 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))