+(deffoo nndraft-request-move-article (article group server
+ accept-form &optional last)
+ (nndraft-possibly-change-group group)
+ (let ((nnmh-allow-delete-final t))
+ (nnoo-parent-function 'nndraft 'nndraft-request-move-article
+ (list article group server accept-form last))))
+