-(defun nnmaildir--article-set-flags (article new-suffix curdir)
- (let* ((prefix (nnmaildir--art-prefix article))
- (suffix (nnmaildir--art-suffix article))
- (article-file (concat curdir prefix suffix))
- (new-name (concat curdir prefix new-suffix)))
- (unless (file-exists-p article-file)
- (error "Couldn't find article file %s" article-file))
- (rename-file article-file new-name 'replace)
- (setf (nnmaildir--art-suffix article) new-suffix)))
-