From 7ee12d95fb646fed16c953dc00f8e5bffde959cc Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 12 Feb 2019 18:24:59 -0800 Subject: [PATCH] Simplify nnspool-request-newgroups arithmetic MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/gnus/nnspool.el (nnspool-request-newgroups): Simplify by compute time stamps as integers, not floats, since integers don’t overflow any more. --- lisp/gnus/nnspool.el | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index 0f032f9a424..767631c6859 100644 --- a/lisp/gnus/nnspool.el +++ b/lisp/gnus/nnspool.el @@ -305,25 +305,18 @@ there.") (while (and (not (looking-at "\\([^ ]+\\) +\\([0-9]+\\)[0-9][0-9][0-9] ")) (zerop (forward-line -1)))) - ;; We require nnheader which requires gnus-util. - (let ((seconds (float-time (date-to-time date))) + (let ((seconds (encode-time (date-to-time date) 'integer)) groups) ;; Go through lines and add the latest groups to a list. (while (and (looking-at "\\([^ ]+\\) +[0-9]+ ") (progn - ;; We insert a .0 to make the list reader - ;; interpret the number as a float. It is far - ;; too big to be stored in a lisp integer. - (goto-char (1- (match-end 0))) - (insert ".0") - (> (progn - (goto-char (match-end 1)) - (read (current-buffer))) - seconds)) - (push (buffer-substring - (match-beginning 1) (match-end 1)) - groups) - (zerop (forward-line -1)))) + (goto-char (match-end 1)) + (< seconds (read (current-buffer)))) + (progn + (push (buffer-substring + (match-beginning 1) (match-end 1)) + groups) + (zerop (forward-line -1))))) (erase-buffer) (dolist (group groups) (insert group " 0 0 y\n"))) -- 2.39.5