diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2019-07-22 13:45:40 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2019-07-22 19:26:21 +0200 |
| commit | 7e294d55e1506443e711f44c85caf490ded80fe8 (patch) | |
| tree | 11549eb71f39826c4d044a3d3505ceee56084a78 /lisp/org/org-gnus.el | |
| parent | 87ad8a11437752f3a5f7f1096328e3b9d11bba9f (diff) | |
| download | emacs-7e294d55e1506443e711f44c85caf490ded80fe8.tar.gz emacs-7e294d55e1506443e711f44c85caf490ded80fe8.tar.bz2 emacs-7e294d55e1506443e711f44c85caf490ded80fe8.zip | |
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.
Diffstat (limited to 'lisp/org/org-gnus.el')
| -rw-r--r-- | lisp/org/org-gnus.el | 4 |
1 files changed, 1 insertions, 3 deletions
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) |