X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fimap.el;h=c204a475eca55ad9f518cbc2f25462a60e79ae32;hb=29afe7091b059510d5d606316720f175695055c8;hp=b6f0fee855ac2934bd91746da2b22e2b485ae5ab;hpb=ae0042064ba47ed2a4d9d21a009f3481911871a7;p=elisp%2Fgnus.git-

diff --git a/lisp/imap.el b/lisp/imap.el
index b6f0fee..c204a47 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -145,22 +145,17 @@
 (eval-and-compile
   (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")
   (autoload 'utf7-decode "utf7")
   (autoload 'format-spec "format-spec")
   (autoload 'format-spec-make "format-spec")
-  (autoload 'open-tls-stream "tls")
-  ;; Avoid use gnus-point-at-eol so we're independent of Gnus.  These
-  ;; days we have point-at-eol anyhow.
-  (if (fboundp 'point-at-eol)
-      (defalias 'imap-point-at-eol 'point-at-eol)
-    (defun imap-point-at-eol ()
-      (save-excursion
-	(end-of-line)
-	(point))))
-  (autoload 'sasl-digest-md5-digest-response "sasl"))
+  (autoload 'open-tls-stream "tls"))
 
 ;; User variables.
 
@@ -919,11 +914,16 @@ Returns t if login was successful, nil otherwise."
 	     (list
 	      "AUTHENTICATE DIGEST-MD5"
 	      (lambda (challenge)
-		(base64-encode-string
-		 (sasl-digest-md5-digest-response
-		  (base64-decode-string challenge)
-		  user passwd "imap" imap-server)
-		 'no-line-break))))))
+		(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))))
+	     )))
        (if (not (eq (imap-wait-for-tag tag) 'INCOMPLETE))
 	   nil
 	 (setq imap-continuation nil)
@@ -1103,7 +1103,7 @@ If BUFFER is nil, the current buffer is assumed."
 
 (defun imap-id (&optional list-of-values buffer)
   "Identify client to server in BUFFER, and return server identity.
-LIST-OF-VALUES is `nil', or a plist with identifier and value
+LIST-OF-VALUES is nil, or a plist with identifier and value
 strings to send to the server to identify the client.
 
 Return a list of identifiers which server in BUFFER support, or
@@ -2433,16 +2433,16 @@ Return nil if no complete line has arrived."
 
 (defun imap-parse-flag-list ()
   (let (flag-list start)
-    (assert (eq (char-after) ?\() t "In imap-parse-flag-list")
+    (assert (eq (char-after) ?\() nil "In imap-parse-flag-list")
     (while (and (not (eq (char-after) ?\)))
 		(setq start (progn
 			      (imap-forward)
 			      ;; next line for Courier IMAP bug.
 			      (skip-chars-forward " ")
 			      (point)))
-		(> (skip-chars-forward "^ )" (imap-point-at-eol)) 0))
+		(> (skip-chars-forward "^ )" (point-at-eol)) 0))
       (push (buffer-substring start (point)) flag-list))
-    (assert (eq (char-after) ?\)) t "In imap-parse-flag-list")
+    (assert (eq (char-after) ?\)) nil "In imap-parse-flag-list")
     (imap-forward)
     (nreverse flag-list)))
 
@@ -2527,7 +2527,7 @@ Return nil if no complete line has arrived."
 	(while (eq (char-after) ?\ )
 	  (imap-forward)
 	  (push (imap-parse-body-extension) b-e))
-	(assert (eq (char-after) ?\)) t "In imap-parse-body-extension")
+	(assert (eq (char-after) ?\)) nil "In imap-parse-body-extension")
 	(imap-forward)
 	(nreverse b-e))
     (or (imap-parse-number)
@@ -2651,7 +2651,7 @@ Return nil if no complete line has arrived."
 		(push (and (imap-parse-nil) nil) body))
 	      (setq body
 		    (append (imap-parse-body-ext) body))) ;; body-ext-...
-	    (assert (eq (char-after) ?\)) t "In imap-parse-body")
+	    (assert (eq (char-after) ?\)) nil "In imap-parse-body")
 	    (imap-forward)
 	    (nreverse body))
 
@@ -2711,7 +2711,7 @@ Return nil if no complete line has arrived."
 	  (push (imap-parse-nstring) body) ;; body-fld-md5
 	  (setq body (append (imap-parse-body-ext) body))) ;; body-ext-1part..
 
-	(assert (eq (char-after) ?\)) t "In imap-parse-body 2")
+	(assert (eq (char-after) ?\)) nil "In imap-parse-body 2")
 	(imap-forward)
 	(nreverse body)))))