/[emacs]/emacs/lisp/gnus/nnmh.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnmh.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by miles, Sat Sep 4 13:13:44 2004 UTC revision 1.12 by miles, Mon May 30 17:13:58 2005 UTC
# Line 150  as unread by Gnus.") Line 150  as unread by Gnus.")
150           (file-exists-p file)           (file-exists-p file)
151           (not (file-directory-p file))           (not (file-directory-p file))
152           (save-excursion (nnmail-find-file file))           (save-excursion (nnmail-find-file file))
153           (string-to-int (file-name-nondirectory file)))))           (string-to-number (file-name-nondirectory file)))))
154    
155  (deffoo nnmh-request-group (group &optional server dont-check)  (deffoo nnmh-request-group (group &optional server dont-check)
156    (nnheader-init-server-buffer)    (nnheader-init-server-buffer)
# Line 176  as unread by Gnus.") Line 176  as unread by Gnus.")
176          (nnheader-re-read-dir pathname)          (nnheader-re-read-dir pathname)
177          (setq dir          (setq dir
178                (sort                (sort
179                 (mapcar (lambda (name) (string-to-int name))                 (mapcar (lambda (name) (string-to-number name))
180                         (directory-files pathname nil "^[0-9]+$" t))                         (directory-files pathname nil "^[0-9]+$" t))
181                 '<))                 '<))
182          (cond          (cond
# Line 224  as unread by Gnus.") Line 224  as unread by Gnus.")
224    ;; For each directory, generate an active file line.    ;; For each directory, generate an active file line.
225    (unless (string= (expand-file-name nnmh-toplev) dir)    (unless (string= (expand-file-name nnmh-toplev) dir)
226      (let ((files (mapcar      (let ((files (mapcar
227                    (lambda (name) (string-to-int name))                    (lambda (name) (string-to-number name))
228                    (directory-files dir nil "^[0-9]+$" t))))                    (directory-files dir nil "^[0-9]+$" t))))
229        (when files        (when files
230          (save-excursion          (save-excursion
# Line 358  as unread by Gnus.") Line 358  as unread by Gnus.")
358        (nnmh-possibly-change-directory group server)        (nnmh-possibly-change-directory group server)
359        (let ((articles (mapcar        (let ((articles (mapcar
360                         (lambda (file)                         (lambda (file)
361                           (string-to-int file))                           (string-to-number file))
362                         (directory-files                         (directory-files
363                          nnmh-current-directory nil "^[0-9]+$"))))                          nnmh-current-directory nil "^[0-9]+$"))))
364          (when articles          (when articles
# Line 486  as unread by Gnus.") Line 486  as unread by Gnus.")
486        (let ((files (sort        (let ((files (sort
487                      (mapcar                      (mapcar
488                       (lambda (f)                       (lambda (f)
489                         (string-to-int f))                         (string-to-number f))
490                       (directory-files dir nil "^[0-9]+$"))                       (directory-files dir nil "^[0-9]+$"))
491                      '>)))                      '>)))
492          (when files          (when files
# Line 509  as unread by Gnus.") Line 509  as unread by Gnus.")
509    ;; articles in this folder.  The articles that are "new" will be    ;; articles in this folder.  The articles that are "new" will be
510    ;; marked as unread by Gnus.    ;; marked as unread by Gnus.
511    (let* ((dir nnmh-current-directory)    (let* ((dir nnmh-current-directory)
512           (files (sort (mapcar (function (lambda (name) (string-to-int name)))           (files (sort (mapcar (function (lambda (name) (string-to-number name)))
513                                (directory-files nnmh-current-directory                                (directory-files nnmh-current-directory
514                                                 nil "^[0-9]+$" t))                                                 nil "^[0-9]+$" t))
515                        '<))                        '<))

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26