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

[Miles Bader]

Index: emacs/lisp/gnus/nnmh.el
diff -c emacs/lisp/gnus/nnmh.el:1.11 emacs/lisp/gnus/nnmh.el:1.12
*** emacs/lisp/gnus/nnmh.el:1.11        Sat Sep  4 13:13:44 2004
--- emacs/lisp/gnus/nnmh.el     Mon May 30 17:13:58 2005
***************
*** 150,156 ****
         (file-exists-p file)
         (not (file-directory-p file))
         (save-excursion (nnmail-find-file file))
!        (string-to-int (file-name-nondirectory file)))))
  
  (deffoo nnmh-request-group (group &optional server dont-check)
    (nnheader-init-server-buffer)
--- 150,156 ----
         (file-exists-p file)
         (not (file-directory-p file))
         (save-excursion (nnmail-find-file file))
!        (string-to-number (file-name-nondirectory file)))))
  
  (deffoo nnmh-request-group (group &optional server dont-check)
    (nnheader-init-server-buffer)
***************
*** 176,182 ****
        (nnheader-re-read-dir pathname)
        (setq dir
              (sort
!              (mapcar (lambda (name) (string-to-int name))
                       (directory-files pathname nil "^[0-9]+$" t))
               '<))
        (cond
--- 176,182 ----
        (nnheader-re-read-dir pathname)
        (setq dir
              (sort
!              (mapcar (lambda (name) (string-to-number name))
                       (directory-files pathname nil "^[0-9]+$" t))
               '<))
        (cond
***************
*** 224,230 ****
    ;; For each directory, generate an active file line.
    (unless (string= (expand-file-name nnmh-toplev) dir)
      (let ((files (mapcar
!                 (lambda (name) (string-to-int name))
                  (directory-files dir nil "^[0-9]+$" t))))
        (when files
        (save-excursion
--- 224,230 ----
    ;; For each directory, generate an active file line.
    (unless (string= (expand-file-name nnmh-toplev) dir)
      (let ((files (mapcar
!                 (lambda (name) (string-to-number name))
                  (directory-files dir nil "^[0-9]+$" t))))
        (when files
        (save-excursion
***************
*** 358,364 ****
        (nnmh-possibly-change-directory group server)
        (let ((articles (mapcar
                       (lambda (file)
!                        (string-to-int file))
                       (directory-files
                        nnmh-current-directory nil "^[0-9]+$"))))
        (when articles
--- 358,364 ----
        (nnmh-possibly-change-directory group server)
        (let ((articles (mapcar
                       (lambda (file)
!                        (string-to-number file))
                       (directory-files
                        nnmh-current-directory nil "^[0-9]+$"))))
        (when articles
***************
*** 486,492 ****
        (let ((files (sort
                    (mapcar
                     (lambda (f)
!                      (string-to-int f))
                     (directory-files dir nil "^[0-9]+$"))
                    '>)))
        (when files
--- 486,492 ----
        (let ((files (sort
                    (mapcar
                     (lambda (f)
!                      (string-to-number f))
                     (directory-files dir nil "^[0-9]+$"))
                    '>)))
        (when files
***************
*** 509,515 ****
    ;; articles in this folder.  The articles that are "new" will be
    ;; marked as unread by Gnus.
    (let* ((dir nnmh-current-directory)
!        (files (sort (mapcar (function (lambda (name) (string-to-int name)))
                              (directory-files nnmh-current-directory
                                               nil "^[0-9]+$" t))
                      '<))
--- 509,515 ----
    ;; articles in this folder.  The articles that are "new" will be
    ;; marked as unread by Gnus.
    (let* ((dir nnmh-current-directory)
!        (files (sort (mapcar (function (lambda (name) (string-to-number name)))
                              (directory-files nnmh-current-directory
                                               nil "^[0-9]+$" t))
                      '<))