280 |
(buffer-substring |
(buffer-substring |
281 |
(point) (progn (end-of-line) (point))) force)) |
(point) (progn (end-of-line) (point))) force)) |
282 |
(progn |
(progn |
283 |
|
(unless (eq nnmail-expiry-target 'delete) |
284 |
|
(with-temp-buffer |
285 |
|
(nnbabyl-request-article (car articles) |
286 |
|
newsgroup server |
287 |
|
(current-buffer)) |
288 |
|
(let ((nnml-current-directory nil)) |
289 |
|
(nnmail-expiry-target-group |
290 |
|
nnmail-expiry-target newsgroup)))) |
291 |
(nnheader-message 5 "Deleting article %d in %s..." |
(nnheader-message 5 "Deleting article %d in %s..." |
292 |
(car articles) newsgroup) |
(car articles) newsgroup) |
293 |
(nnbabyl-delete-mail)) |
(nnbabyl-delete-mail)) |