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

[Miles Bader]

Index: emacs/lisp/gnus/nndraft.el
diff -c emacs/lisp/gnus/nndraft.el:1.5 emacs/lisp/gnus/nndraft.el:1.6
*** emacs/lisp/gnus/nndraft.el:1.5      Sat Sep  4 13:13:43 2004
--- emacs/lisp/gnus/nndraft.el  Mon May 30 17:13:57 2005
***************
*** 185,191 ****
           (file-name-coding-system nnmail-pathname-coding-system)
           dir file)
        (nnheader-re-read-dir pathname)
!       (setq dir (mapcar (lambda (name) (string-to-int (substring name 1)))
                        (ignore-errors (directory-files
                                        pathname nil "^#[0-9]+#$" t))))
        (dolist (n dir)
--- 185,191 ----
           (file-name-coding-system nnmail-pathname-coding-system)
           dir file)
        (nnheader-re-read-dir pathname)
!       (setq dir (mapcar (lambda (name) (string-to-number (substring name 1)))
                        (ignore-errors (directory-files
                                        pathname nil "^#[0-9]+#$" t))))
        (dolist (n dir)
***************
*** 293,299 ****
    "Return the list of messages in the group."
    (gnus-make-directory nndraft-current-directory)
    (sort
!    (mapcar 'string-to-int
           (directory-files nndraft-current-directory nil "\\`[0-9]+\\'" t))
     '<))
  
--- 293,299 ----
    "Return the list of messages in the group."
    (gnus-make-directory nndraft-current-directory)
    (sort
!    (mapcar 'string-to-number
           (directory-files nndraft-current-directory nil "\\`[0-9]+\\'" t))
     '<))