Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.el @ 28:1917ad0d78d7 r19-15b97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b97
author cvs
date Mon, 13 Aug 2007 08:51:55 +0200
parents 441bb1e64a06
children ec9a17fef872
comparison
equal deleted inserted replaced
27:0a3286277d9b 28:1917ad0d78d7
104 (if (nnml-retrieve-headers-with-nov sequence fetch-old) 104 (if (nnml-retrieve-headers-with-nov sequence fetch-old)
105 'nov 105 'nov
106 (while sequence 106 (while sequence
107 (setq article (car sequence)) 107 (setq article (car sequence))
108 (setq file (nnml-article-to-file article)) 108 (setq file (nnml-article-to-file article))
109 (when (and (file-exists-p file) 109 (when (and file
110 (file-exists-p file)
110 (not (file-directory-p file))) 111 (not (file-directory-p file)))
111 (insert (format "221 %d Article retrieved.\n" article)) 112 (insert (format "221 %d Article retrieved.\n" article))
112 (setq beg (point)) 113 (setq beg (point))
113 (nnheader-insert-head file) 114 (nnheader-insert-head file)
114 (goto-char beg) 115 (goto-char beg)