From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 11 Feb 2019 08:08:03 +0000 (-0800)
Subject: Simplify url-digest-auth-make-cnonce
X-Git-Tag: emacs-27.0.90~3630
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2860f6cec56b02120b0b62cb3733c00a9e5359db;p=emacs.git

Simplify url-digest-auth-make-cnonce

* lisp/url/url-auth.el (url-digest-auth-make-cnonce):
Simplify by using encode-time instead of round-tripping
through a format-time-string and ‘read’.
---

diff --git a/lisp/url/url-auth.el b/lisp/url/url-auth.el
index 1ef73a62c02..0746cfd96cb 100644
--- a/lisp/url/url-auth.el
+++ b/lisp/url/url-auth.el
@@ -192,8 +192,7 @@ 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%08x%08x" (random)
-	  (read (format-time-string "(%s %N)")))
+   (format "%016x%016x" (random) (car (encode-time nil t)))
    t))
 
 (defun url-digest-auth-nonce-count (_nonce)