Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnmh.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
155 (cond 155 (cond
156 (dont-check 156 (dont-check
157 (nnheader-report 'nnmh "Selected group %s" group) 157 (nnheader-report 'nnmh "Selected group %s" group)
158 t) 158 t)
159 (t 159 (t
160 ;; Re-scan the directory if it's on a foreign system.
161 (nnheader-re-read-dir pathname)
160 (setq dir 162 (setq dir
161 (sort 163 (sort
162 (mapcar (lambda (name) (string-to-int name)) 164 (mapcar (lambda (name) (string-to-int name))
163 (directory-files pathname nil "^[0-9]+$" t)) 165 (directory-files pathname nil "^[0-9]+$" t))
164 '<)) 166 '<))