X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnndraft.el;h=2866da5882dbecc4c77c14bbdcbc43f6608e0741;hb=8c38e845dfdda7201684fa5dbbe511e487dd5893;hp=33e0a66f22493df8a2e056b131833ed752cdb83c;hpb=84fab5f73c5e58ce6ecf5bc488b79e5cc90bcb73;p=elisp%2Fgnus.git-

diff --git a/lisp/nndraft.el b/lisp/nndraft.el
index 33e0a66..2866da5 100644
--- a/lisp/nndraft.el
+++ b/lisp/nndraft.el
@@ -173,7 +173,14 @@
 	(let ((auto (nndraft-auto-save-file-name
 		     (nndraft-article-filename article))))
 	  (when (file-exists-p auto)
-	    (funcall nnmail-delete-file-function auto)))))
+	    (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)))))
     res))
 
 (deffoo nndraft-request-accept-article (group &optional server last noinsert)