Mercurial > hg > xemacs-beta

diff lisp/gnus/nneething.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
line wrap: on
line diff
--- a/lisp/gnus/nneething.el	Mon Aug 13 08:45:53 2007 +0200
+++ b/lisp/gnus/nneething.el	Mon Aug 13 08:46:35 2007 +0200
@@ -95,7 +95,7 @@
 
 	  (when (and (file-exists-p file)
 		     (or (file-directory-p file)
-			 (not (zerop (nth 7 (file-attributes file))))))
+			 (not (zerop (nnheader-file-size file)))))
 	    (insert (format "221 %d Article retrieved.\n" article))
 	    (nneething-insert-head file)
 	    (insert ".\n"))