[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el |
Date: |
Mon, 30 May 2005 13:14:02 -0400 |
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))
'<))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nndraft.el,
Miles Bader <=