+ (funcall nnmail-delete-file-function auto)))
+ (dolist (backup
+ (let ((kept-new-versions 1)
+ (kept-old-versions 0))
+ (cdr (find-backup-file-name
+ (nndraft-article-filename article)))))
+ (when (file-exists-p backup)
+ (funcall nnmail-delete-file-function backup)))))