265 |
(setq is-old |
(setq is-old |
266 |
(nnmail-expired-article-p newsgroup mod-time force))) |
(nnmail-expired-article-p newsgroup mod-time force))) |
267 |
(progn |
(progn |
268 |
|
;; Allow a special target group. -- jcn |
269 |
|
(unless (eq nnmail-expiry-target 'delete) |
270 |
|
(with-temp-buffer |
271 |
|
(nnmh-request-article (car articles) |
272 |
|
newsgroup server (current-buffer)) |
273 |
|
(nnmail-expiry-target-group |
274 |
|
nnmail-expiry-target newsgroup))) |
275 |
(nnheader-message 5 "Deleting article %s in %s..." |
(nnheader-message 5 "Deleting article %s in %s..." |
276 |
article newsgroup) |
article newsgroup) |
277 |
(condition-case () |
(condition-case () |