From: ueno <ueno>
Date: Sun, 19 Nov 2000 19:23:37 +0000 (+0000)
Subject: * sasl-digest.el (sasl-digest-md5-response): Refer client "qop".
X-Git-Tag: flim-1_14_0-pre1~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1bc4434dfce1d38a5cdd7eca5c6dc8230f096f1f;hp=982a58c73a91fd1f6836bd3700a0d7ee912e8bda;p=elisp%2Fflim.git

* sasl-digest.el (sasl-digest-md5-response): Refer client "qop".
- Don't quote "response-value".
---

diff --git a/sasl-digest.el b/sasl-digest.el
index a1b08b1..1a1eb8a 100644
--- a/sasl-digest.el
+++ b/sasl-digest.el
@@ -131,27 +131,17 @@ charset algorithm cipher-opts auth-param)."
      "cnonce=\"" cnonce "\","
      (format "nc=%08x," nonce-count)
      "digest-uri=\"" digest-uri "\","
-     "response=\""
+     "response="
      (sasl-digest-md5-response-value
       (sasl-client-name client)
       realm
       (plist-get plist 'nonce)
       cnonce
       nonce-count
-      (or (plist-get plist 'qop)
+      (or (sasl-client-property client 'qop)
 	  "auth")
       digest-uri
-      (plist-get plist 'authzid))
-     "\","
-     (mapconcat 
-      #'identity
-      (delq nil 
-	    (mapcar (lambda (prop)
-		      (let ((value (sasl-client-property client prop)))
-			(if value
-			    (format "%s=%s" prop value))))
-		    '(maxbuf charset cipher authzid)))
-      ","))))
+      (plist-get plist 'authzid)))))
 
 (put 'sasl-digest 'sasl-mechanism
      (sasl-make-mechanism "DIGEST-MD5" sasl-digest-md5-steps))