Index: emacs/lisp/gnus/nnsoup.el
diff -c emacs/lisp/gnus/nnsoup.el:1.11 emacs/lisp/gnus/nnsoup.el:1.12
*** emacs/lisp/gnus/nnsoup.el:1.11      Sat Sep  4 13:13:44 2004
--- emacs/lisp/gnus/nnsoup.el   Mon May 30 17:13:57 2005
***************
*** 752,760 ****
    (let ((files (sort (directory-files nnsoup-directory t "IDX$")
                     (lambda (f1 f2)
                       (< (progn (string-match "/\\([0-9]+\\)\\." f1)
!                                (string-to-int (match-string 1 f1)))
                          (progn (string-match "/\\([0-9]+\\)\\." f2)
!                                (string-to-int (match-string 1 f2)))))))
        active group lines ident elem min)
      (set-buffer (get-buffer-create " *nnsoup work*"))
      (while files
--- 752,760 ----
    (let ((files (sort (directory-files nnsoup-directory t "IDX$")
                     (lambda (f1 f2)
                       (< (progn (string-match "/\\([0-9]+\\)\\." f1)
!                                (string-to-number (match-string 1 f1)))
                          (progn (string-match "/\\([0-9]+\\)\\." f2)
!                                (string-to-number (match-string 1 f2)))))))
        active group lines ident elem min)
      (set-buffer (get-buffer-create " *nnsoup work*"))
      (while files


_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs

Reply via email to