From 1bc4434dfce1d38a5cdd7eca5c6dc8230f096f1f Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 19 Nov 2000 19:23:37 +0000
Subject: [PATCH 1/1] * sasl-digest.el (sasl-digest-md5-response): Refer
 client "qop". - Don't quote "response-value".

---
 sasl-digest.el |   16 +++-------------
 1 file changed, 3 insertions(+), 13 deletions(-)

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))
-- 
1.7.10.4