- (nndraft-execute-nnmh-command
- `(nnmh-request-accept-article group ,server ,last noinsert))))
+ (nnoo-parent-function 'nndraft 'nnmh-request-accept-article
+ (list group server last noinsert))))
+
+(deffoo nndraft-request-replace-article (article group buffer)
+ (nndraft-possibly-change-group group)
+ (let ((nnmail-file-coding-system nnheader-text-coding-system))
+ (nnoo-parent-function 'nndraft 'nnmh-request-replace-article
+ (list article group buffer))))