Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnml.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
186 ((not (save-excursion (nnmail-find-file path))) 186 ((not (save-excursion (nnmail-find-file path)))
187 (nnheader-report 'nnml "Couldn't read file: %s" path)) 187 (nnheader-report 'nnml "Couldn't read file: %s" path))
188 (t 188 (t
189 (nnheader-report 'nnml "Article %s retrieved" id) 189 (nnheader-report 'nnml "Article %s retrieved" id)
190 ;; We return the article number. 190 ;; We return the article number.
191 (cons group (string-to-int (file-name-nondirectory path))))))) 191 (cons (if group-num (car group-num) group)
192 (string-to-int (file-name-nondirectory path)))))))
192 193
193 (deffoo nnml-request-group (group &optional server dont-check) 194 (deffoo nnml-request-group (group &optional server dont-check)
194 (cond 195 (cond
195 ((not (nnml-possibly-change-directory group server)) 196 ((not (nnml-possibly-change-directory group server))
196 (nnheader-report 'nnml "Invalid group (no such directory)")) 197 (nnheader-report 'nnml "Invalid group (no such directory)"))