diff options
Diffstat (limited to 'lisp/url/url-auth.el')
| -rw-r--r-- | lisp/url/url-auth.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el index 4f7b5446743..401baece838 100644 --- a/lisp/url/url-auth.el +++ b/lisp/url/url-auth.el @@ -192,9 +192,11 @@ key cache `url-digest-auth-storage'." (defun url-digest-auth-make-cnonce () "Compute a new unique client nonce value." (base64-encode-string - (apply 'format "%016x%04x%04x%05x%05x" (random) (current-time)) t)) + (apply #'format "%016x%08x%08x" (random) + (read (format-time-string "(%s %N)"))) + t)) -(defun url-digest-auth-nonce-count (nonce) +(defun url-digest-auth-nonce-count (_nonce) "The number requests sent to server with the given NONCE. This count includes the request we're preparing here. |