/[emacs]/emacs/lisp/gnus/gnus-cache.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-cache.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by miles, Sun Apr 10 04:20:13 2005 UTC revision 1.14 by miles, Mon May 30 17:13:58 2005 UTC
# Line 487  Returns the list of articles removed." Line 487  Returns the list of articles removed."
487          articles)          articles)
488      (when (file-exists-p dir)      (when (file-exists-p dir)
489        (setq articles        (setq articles
490              (sort (mapcar (lambda (name) (string-to-int name))              (sort (mapcar (lambda (name) (string-to-number name))
491                            (directory-files dir nil "^[0-9]+$" t))                            (directory-files dir nil "^[0-9]+$" t))
492                    '<))                    '<))
493        ;; Update the cache active file, just to synch more.        ;; Update the cache active file, just to synch more.
# Line 681  If LOW, update the lower bound instead." Line 681  If LOW, update the lower bound instead."
681      ;; Separate articles from all other files and directories.      ;; Separate articles from all other files and directories.
682      (while files      (while files
683        (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))        (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))
684            (push (string-to-int (file-name-nondirectory (pop files))) nums)            (push (string-to-number (file-name-nondirectory (pop files))) nums)
685          (push (pop files) alphs)))          (push (pop files) alphs)))
686      ;; If we have nums, then this is probably a valid group.      ;; If we have nums, then this is probably a valid group.
687      (when (setq nums (sort nums '<))      (when (setq nums (sort nums '<))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26