/[emacs]/emacs/lisp/gnus/nnsoup.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnsoup.el

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

revision 1.11 by miles, Sat Sep 4 13:13:44 2004 UTC revision 1.12 by miles, Mon May 30 17:13:57 2005 UTC
# Line 752  backend for the messages.") Line 752  backend for the messages.")
752    (let ((files (sort (directory-files nnsoup-directory t "IDX$")    (let ((files (sort (directory-files nnsoup-directory t "IDX$")
753                       (lambda (f1 f2)                       (lambda (f1 f2)
754                         (< (progn (string-match "/\\([0-9]+\\)\\." f1)                         (< (progn (string-match "/\\([0-9]+\\)\\." f1)
755                                   (string-to-int (match-string 1 f1)))                                   (string-to-number (match-string 1 f1)))
756                            (progn (string-match "/\\([0-9]+\\)\\." f2)                            (progn (string-match "/\\([0-9]+\\)\\." f2)
757                                   (string-to-int (match-string 1 f2)))))))                                   (string-to-number (match-string 1 f2)))))))
758          active group lines ident elem min)          active group lines ident elem min)
759      (set-buffer (get-buffer-create " *nnsoup work*"))      (set-buffer (get-buffer-create " *nnsoup work*"))
760      (while files      (while files

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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