X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fsasl-digest.el;h=1c7d2f02d108a303f13e2981f39eff767990036a;hb=d7925de009d5e3047e07e52657d7312d9f97979c;hp=8e91a95d63cfa97c7444e0a31166adaacfa61c84;hpb=5b56360f389e3a2ac2317eda0330b00ddf4d2672;p=gnus diff --git a/lisp/sasl-digest.el b/lisp/sasl-digest.el index 8e91a95d6..1c7d2f02d 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-2011 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