X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmh.el;h=8aafd7d605f21e9e4e40680664bf990988a47c6d;hb=47b7a4bada24ae3f277e2a8f336128ba949840ea;hp=c359e95cfc213700f0192d5eeedabb3ddf043e98;hpb=22c9ae9991cf4459703360473542a337e7ca8b77;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index c359e95..8aafd7d 100644
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -242,13 +242,7 @@
 (deffoo nnmh-request-expire-articles (articles newsgroup
 					       &optional server force)
   (nnmh-possibly-change-directory newsgroup server)
-  (let* ((active-articles
-	  (mapcar
-	   (function
-	    (lambda (name)
-	      (string-to-int name)))
-	   (directory-files nnmh-current-directory nil "^[0-9]+$" t)))
-	 (is-old t)
+  (let* ((is-old t)
 	 article rest mod-time)
     (nnheader-init-server-buffer)