[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnmh.el,v
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnmh.el,v |
Date: |
Sun, 28 Oct 2007 09:18:44 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Miles Bader <miles> 07/10/28 09:18:40
Index: lisp/gnus/nnmh.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/nnmh.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- lisp/gnus/nnmh.el 26 Jul 2007 05:27:03 -0000 1.17
+++ lisp/gnus/nnmh.el 28 Oct 2007 09:18:26 -0000 1.18
@@ -176,7 +176,7 @@
(nnheader-re-read-dir pathname)
(setq dir
(sort
- (mapcar (lambda (name) (string-to-number name))
+ (mapcar 'string-to-number
(directory-files pathname nil "^[0-9]+$" t))
'<))
(cond
@@ -211,7 +211,6 @@
(setq dir (expand-file-name dir))
;; Recurse down all directories.
(let ((dirs (and (file-readable-p dir)
- (> (nth 1 (file-attributes (file-chase-links dir))) 2)
(nnheader-directory-files dir t nil t)))
rdir)
;; Recurse down directories.
@@ -223,8 +222,7 @@
(nnmh-request-list-1 rdir))))
;; 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))
+ (let ((files (mapcar 'string-to-number
(directory-files dir nil "^[0-9]+$" t))))
(when files
(save-excursion
@@ -290,8 +288,8 @@
(deffoo nnmh-close-group (group &optional server)
t)
-(deffoo nnmh-request-move-article (article group server
- accept-form &optional last)
+(deffoo nnmh-request-move-article (article group server accept-form
+ &optional last move-is-internal)
(let ((buf (get-buffer-create " *nnmh move*"))
result)
(and
@@ -356,9 +354,7 @@
nnmh-group-alist)
(nnmh-possibly-create-directory group)
(nnmh-possibly-change-directory group server)
- (let ((articles (mapcar
- (lambda (file)
- (string-to-number file))
+ (let ((articles (mapcar 'string-to-number
(directory-files
nnmh-current-directory nil "^[0-9]+$"))))
(when articles
@@ -484,9 +480,7 @@
(gnus-make-directory dir))
;; Find the highest number in the group.
(let ((files (sort
- (mapcar
- (lambda (f)
- (string-to-number f))
+ (mapcar 'string-to-number
(directory-files dir nil "^[0-9]+$"))
'>)))
(when files
@@ -509,7 +503,7 @@
;; 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)))
+ (files (sort (mapcar 'string-to-number
(directory-files nnmh-current-directory
nil "^[0-9]+$" t))
'<))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnmh.el,v,
Miles Bader <=