Attempted expiry on numeric group folders

["David Z. Maze" <dmaze@donut.mit.edu>]

[-- Attachment #1: Type: text/plain, Size: 789 bytes --]

As a result of MIT's class naming scheme, I have several folders of
the form nnml:mail.classes.6.001, ...6.170, and so on.  I also have a
general folder nnml:mail.classes.6 which is used for an announcement
list for all things pertaining to the department of Electrical
Engineering and Computer Science (Course 6), which is total-expirable.

I noticed today (using pgnus 0.95 under XEmacs 20.4) that Gnus was
trying to expire ~/Mail/mail/classes/6/001, even though that's a group 
directory rather than an nnml message file.  This is because
nnheader-directory-articles doesn't look to see whether the files
nnheader-directory-files-safe returns are directories or not.  This
can be fixed by tweaking the arguments passed to directory-files,
which the attached patch to nnheader.el does.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Patch to nnheader.el to make directories not be articles --]
[-- Type: text/x-patch, Size: 737 bytes --]

--- nnheader.el.orig	Sun Aug 22 20:45:22 1999
+++ nnheader.el	Sun Aug 22 20:45:56 1999
@@ -584,13 +584,13 @@
   "Return a list of all article files in a directory."
   (mapcar 'nnheader-file-to-number
 	  (nnheader-directory-files-safe
-	   dir nil nnheader-numerical-short-files t)))
+	   dir nil nnheader-numerical-short-files t t)))
 
 (defun nnheader-article-to-file-alist (dir)
   "Return an alist of article/file pairs in DIR."
   (mapcar (lambda (file) (cons (nnheader-file-to-number file) file))
 	  (nnheader-directory-files-safe
-	   dir nil nnheader-numerical-short-files t)))
+	   dir nil nnheader-numerical-short-files t t)))
 
 (defun nnheader-fold-continuation-lines ()
   "Fold continuation lines in the current buffer."

[-- Attachment #3: Type: text/plain, Size: 222 bytes --]


-- 
David Maze             dmaze@mit.edu          http://donut.mit.edu/dmaze/
"Hey, Doug, do you mind if I push the Emergency Booth Self-Destruct Button?"
"Oh, sure, Dave, whatever...you _do_ know what that does, right?"