X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fsasl-digest.el;h=f2242af147e03df565e85d5dbb9c20519deb76a3;hp=8e91a95d63cfa97c7444e0a31166adaacfa61c84;hb=a85e72c397c89080c49b1859f55639a71f598471;hpb=5b56360f389e3a2ac2317eda0330b00ddf4d2672 diff --git a/lisp/sasl-digest.el b/lisp/sasl-digest.el index 8e91a95d6..f2242af14 100644 --- a/lisp/sasl-digest.el +++ b/lisp/sasl-digest.el @@ -1,6 +1,6 @@ ;;; sasl-digest.el --- DIGEST-MD5 module for the SASL client framework -;; Copyright (C) 2000, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. +;; Copyright (C) 2000, 2007-2014 Free Software Foundation, Inc. ;; Author: Daiki Ueno ;; Kenichi OKADA @@ -95,10 +95,10 @@ charset algorithm cipher-opts auth-param)." (md5-binary (concat (encode-hex-string - (md5-binary (concat (md5-binary + (md5-binary (concat (md5-binary (concat username ":" realm ":" passphrase)) ":" nonce ":" cnonce - (if authzid + (if authzid (concat ":" authzid))))) ":" nonce ":" (format "%08x" nonce-count) ":" cnonce ":" qop ":" @@ -154,5 +154,4 @@ charset algorithm cipher-opts auth-param)." (provide 'sasl-digest) -;; arch-tag: 786e02ed-1bc4-4b3c-bf34-96c27e31084d ;;; sasl-digest.el ends here