Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
93 (while (setq article (pop articles)) 93 (while (setq article (pop articles))
94 (setq file (nneething-file-name article)) 94 (setq file (nneething-file-name article))
95 95
96 (when (and (file-exists-p file) 96 (when (and (file-exists-p file)
97 (or (file-directory-p file) 97 (or (file-directory-p file)
98 (not (zerop (nth 7 (file-attributes file)))))) 98 (not (zerop (nnheader-file-size file)))))
99 (insert (format "221 %d Article retrieved.\n" article)) 99 (insert (format "221 %d Article retrieved.\n" article))
100 (nneething-insert-head file) 100 (nneething-insert-head file)
101 (insert ".\n")) 101 (insert ".\n"))
102 102
103 (incf count) 103 (incf count)