[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-cache.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-cache.el
diff -c emacs/lisp/gnus/gnus-cache.el:1.13 emacs/lisp/gnus/gnus-cache.el:1.14
*** emacs/lisp/gnus/gnus-cache.el:1.13  Sun Apr 10 04:20:13 2005
--- emacs/lisp/gnus/gnus-cache.el       Mon May 30 17:13:58 2005
***************
*** 487,493 ****
        articles)
      (when (file-exists-p dir)
        (setq articles
!           (sort (mapcar (lambda (name) (string-to-int name))
                          (directory-files dir nil "^[0-9]+$" t))
                  '<))
        ;; Update the cache active file, just to synch more.
--- 487,493 ----
        articles)
      (when (file-exists-p dir)
        (setq articles
!           (sort (mapcar (lambda (name) (string-to-number name))
                          (directory-files dir nil "^[0-9]+$" t))
                  '<))
        ;; Update the cache active file, just to synch more.
***************
*** 681,687 ****
      ;; Separate articles from all other files and directories.
      (while files
        (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))
!         (push (string-to-int (file-name-nondirectory (pop files))) nums)
        (push (pop files) alphs)))
      ;; If we have nums, then this is probably a valid group.
      (when (setq nums (sort nums '<))
--- 681,687 ----
      ;; Separate articles from all other files and directories.
      (while files
        (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))
!         (push (string-to-number (file-name-nondirectory (pop files))) nums)
        (push (pop files) alphs)))
      ;; If we have nums, then this is probably a valid group.
      (when (setq nums (sort nums '<))