* sasl-digest.el (sasl-digest-md5-response): Refer client "qop".
authorueno <ueno>
Sun, 19 Nov 2000 19:22:41 +0000 (19:22 +0000)
committerueno <ueno>
Sun, 19 Nov 2000 19:22:41 +0000 (19:22 +0000)
- Don't quote "response-value".

sasl-digest.el

index a1b08b1..1a1eb8a 100644 (file)
@@ -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))