-(deffoo nndraft-request-group (group &optional server dont-check)
- (prog1
- (nndraft-execute-nnmh-command
- `(nnmh-request-group group "" ,dont-check))
- (nnheader-report 'nndraft nnmh-status-string)))
-
-(deffoo nndraft-request-list (&optional server dir)
- (nndraft-execute-nnmh-command
- `(nnmh-request-list nil ,dir)))
-
-(deffoo nndraft-request-newgroups (date &optional server)
- (nndraft-execute-nnmh-command
- `(nnmh-request-newgroups ,date ,server)))
-
-(deffoo nndraft-request-expire-articles
- (articles group &optional server force)
- (let ((res (nndraft-execute-nnmh-command
- `(nnmh-request-expire-articles
- ',articles group ,server ,force)))
- article)
+(deffoo nndraft-request-expire-articles (articles group &optional server force)
+ (nndraft-possibly-change-group group)
+ (let* ((nnmh-allow-delete-final t)
+ (res (nnoo-parent-function 'nndraft
+ 'nnmh-request-expire-articles
+ (list articles group server force)))
+ article)