-(defun nndraft-execute-nnmh-command (command)
- (let* ((dir (directory-file-name
- (expand-file-name nndraft-current-directory)))
- (group (file-name-nondirectory dir))
- (nnmh-directory (file-name-directory dir))
- (nnmail-keep-last-article nil)
- (nnmh-get-new-mail nil))
- (eval command)))
-