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

[Miles Bader]

Index: emacs/lisp/gnus/nnspool.el
diff -c emacs/lisp/gnus/nnspool.el:1.11 emacs/lisp/gnus/nnspool.el:1.12
*** emacs/lisp/gnus/nnspool.el:1.11     Fri Oct 29 02:23:24 2004
--- emacs/lisp/gnus/nnspool.el  Mon May 30 17:13:58 2005
***************
*** 248,254 ****
        ;; Fix by Sudish Joseph <address@hidden>
        (when (setq dir (directory-files pathname nil "^[0-9]+$" t))
          (setq dir
!               (sort (mapcar (lambda (name) (string-to-int name)) dir) '<)))
        (if dir
            (nnheader-insert
             "211 %d %d %d %s\n" (length dir) (car dir)
--- 248,254 ----
        ;; Fix by Sudish Joseph <address@hidden>
        (when (setq dir (directory-files pathname nil "^[0-9]+$" t))
          (setq dir
!               (sort (mapcar (lambda (name) (string-to-number name)) dir) '<)))
        (if dir
            (nnheader-insert
             "211 %d %d %d %s\n" (length dir) (car dir)
***************
*** 440,446 ****
      (goto-char (point-min))
      (prog1
        (when (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ 
/\t\n]+\\)/\\([0-9]+\\)[ \t\n]")
!         (cons (match-string 1) (string-to-int (match-string 2))))
        (kill-buffer (current-buffer)))))
  
  (defun nnspool-find-file (file)
--- 440,446 ----
      (goto-char (point-min))
      (prog1
        (when (looking-at "<[^>]+>[ \t]+[-0-9~]+[ \t]+\\([^ 
/\t\n]+\\)/\\([0-9]+\\)[ \t\n]")
!         (cons (match-string 1) (string-to-number (match-string 2))))
        (kill-buffer (current-buffer)))))
  
  (defun nnspool-find-file (file)