mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Simplify message-unique-id etc.

Browse source 
* lisp/gnus/message.el (message-unique-id):
* lisp/net/sasl.el (sasl-unique-id-function):
Avoid unnecessary consing and reliance on internal timestamp
format by using (time-convert nil 'integer) which typically does
no consing, instead of using (current-time) and then ignoring
the subsecond parts of the generated list.
This commit is contained in:
Paul Eggert 2021-12-05 18:35:27 -08:00
parent 524c42fa0e
commit f4d7ca73e3
2 changed files with 26 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/net/sasl.el
View file

@ -174,21 +174,24 @@ It contain at least 64 bits of entropy."
;; stolen (and renamed) from message.el
(defun sasl-unique-id-function ()
;; Don't use microseconds from (current-time), they may be unsupported.
;; Don't use fractional seconds from timestamp; they may be unsupported.
;; Instead we use this randomly inited counter.
(setq sasl-unique-id-char
(% (1+ (or sasl-unique-id-char (logand (random) (1- (ash 1 20)))))
;; (current-time) returns 16-bit ints,
;; and 2^16*25 just fits into 4 digits i base 36.
(* 25 25)))
(let ((tm (current-time)))
;; 2^16 * 25 just fits into 4 digits i base 36.
(let ((base (* 25 25)))
(if sasl-unique-id-char
(% (1+ sasl-unique-id-char) base)
(random base))))
(let ((tm (time-convert nil 'integer)))
(concat
(sasl-unique-id-number-base36
(+ (car tm)
(ash (% sasl-unique-id-char 25) 16)) 4)
(+ (ash tm -16)
(ash (% sasl-unique-id-char 25) 16))
4)
(sasl-unique-id-number-base36
(+ (nth 1 tm)
(ash (/ sasl-unique-id-char 25) 16)) 4))))
(+ (logand tm #xffff)
(ash (/ sasl-unique-id-char 25) 16))
4))))
(defun sasl-unique-id-number-base36 (num len)
(if (if (< len 0)