From: yamaoka <yamaoka>
Date: Wed, 17 May 2000 07:12:17 +0000 (+0000)
Subject: Relief given from OKADA-san.
X-Git-Tag: t-gnus-6_14_4-02~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5289499abab7f49f159f598f7d3699f1f7825882;p=elisp%2Fgnus.git-

Relief given from OKADA-san.
(imap-digest-md5-auth): Rewrite for the use of
`sasl-digest-md5-digest-response' instead of `digest-md5-digest-response'.
(TopLevel): Require `sasl' when compiling instead of `digest-md5';
don't autoload "digest-md5".
---

diff --git a/ChangeLog b/ChangeLog
index bab2c1b..3f3f81f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2000-05-17  Kenichi OKADA <okada@opaopa.org>
+
+	* lisp/imap.el (imap-digest-md5-auth): Rewrite for the use of
+	`sasl-digest-md5-digest-response' instead of
+	`digest-md5-digest-response'.
+	(TopLevel): Require `sasl' when compiling instead of `digest-md5';
+	don't autoload "digest-md5".
+
 2000-05-17  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/dgnushack.el (dgnushack-texi-format): Use
diff --git a/lisp/imap.el b/lisp/imap.el
index e07f8fb..a690f34 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -139,7 +139,7 @@
 (eval-when-compile (require 'cl))
 (eval-when-compile (require 'static))
 (eval-when-compile
-  (ignore-errors (require 'digest-md5)))
+  (ignore-errors (require 'sasl)))
 
 (eval-and-compile
   (autoload 'open-ssl-stream "ssl")
@@ -147,10 +147,6 @@
   (autoload 'base64-encode-string "base64")
   (autoload 'starttls-open-stream "starttls")
   (autoload 'starttls-negotiate "starttls")
-  (autoload 'digest-md5-parse-digest-challenge "digest-md5")
-  (autoload 'digest-md5-digest-response "digest-md5")
-  (autoload 'digest-md5-digest-uri "digest-md5")
-  (autoload 'digest-md5-challenge "digest-md5")
   (autoload 'rfc2104-hash "rfc2104")
   (autoload 'md5 "md5")
   (autoload 'utf7-encode "utf7")
@@ -715,16 +711,11 @@ Returns t if login was successful, nil otherwise."
 	     (list
 	      "AUTHENTICATE DIGEST-MD5"
 	      (lambda (challenge)
-		(digest-md5-parse-digest-challenge
-		 (base64-decode-string challenge))
-		(let* ((digest-uri
-			(digest-md5-digest-uri 
-			 "imap" (digest-md5-challenge 'realm)))
-		       (response
-			(digest-md5-digest-response 
-			 user passwd digest-uri)))
-		  (base64-encode-string response 'no-line-break))))
-	     )))
+		(base64-encode-string
+		 (sasl-digest-md5-digest-response
+		  (base64-decode-string challenge)
+		  user passwd "imap" imap-server)
+		 'no-line-break))))))
        (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
 	   nil
 	 (setq imap-continuation nil)