comparison lisp/gnus/nnmh.el @ 100:4be1180a9e89 r20-1b2

Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
226 t) 226 t)
227 227
228 (deffoo nnmh-request-newgroups (date &optional server) 228 (deffoo nnmh-request-newgroups (date &optional server)
229 (nnmh-request-list server)) 229 (nnmh-request-list server))
230 230
231 (deffoo nnmh-request-expire-articles (articles newsgroup &optional server force) 231 (deffoo nnmh-request-expire-articles (articles newsgroup
232 &optional server force)
232 (nnmh-possibly-change-directory newsgroup server) 233 (nnmh-possibly-change-directory newsgroup server)
233 (let* ((active-articles 234 (let* ((active-articles
234 (mapcar 235 (mapcar
235 (function 236 (function
236 (lambda (name) 237 (lambda (name)