From 7e294d55e1506443e711f44c85caf490ded80fe8 Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Mon, 22 Jul 2019 13:45:40 +0200 Subject: Remove some obsolete integer overflow handling * lisp/subr.el (number-sequence): * lisp/org/org-gnus.el (org-gnus-follow-link): * lisp/ls-lisp.el (ls-lisp-insert-directory): Remove dead code guarding against integer overflow. --- lisp/org/org-gnus.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lisp/org/org-gnus.el') diff --git a/lisp/org/org-gnus.el b/lisp/org/org-gnus.el index 2cb2766ee19..15e95647a09 100644 --- a/lisp/org/org-gnus.el +++ b/lisp/org/org-gnus.el @@ -242,9 +242,7 @@ If `org-store-link' was called with a prefix arg the meaning of (_ (let ((articles 1) group-opened) - (while (and (not group-opened) - ;; Stop on integer overflows. - (> articles 0)) + (while (not group-opened) (setq group-opened (gnus-group-read-group articles t group)) (setq articles (if (< articles 16) (1+ articles) -- cgit v1.2.3