From 8e646eb8d4014eb95bb10e993ebf5b1ae845870d Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 8 Jul 2013 16:56:46 +0200 Subject: [PATCH] * nnml.el (nnml-request-compact-group): Don't bug out if we can't delete files (bug#13481). --- lisp/ChangeLog | 5 +++++ lisp/nnml.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d11974f45..19f69dd19 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-07-08 Lars Magne Ingebrigtsen + + * nnml.el (nnml-request-compact-group): Don't bug out if we can't + delete files (bug#13481). + 2013-07-08 Tassilo Horn * gnus-registry.el (gnus-registry-remove-extra-data): New function. diff --git a/lisp/nnml.el b/lisp/nnml.el index 64e1ee119..05d0c9023 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -1094,7 +1094,10 @@ Use the nov database for the current group if available." (concat group ":" new-number-string))) ;; Save to the new file: (nnmail-write-region (point-min) (point-max) newfile)) - (funcall nnmail-delete-file-function oldfile)) + (condition-case () + (funcall nnmail-delete-file-function oldfile) + (file-error + (message "Couldn't delete %s" oldfile)))) ;; 2/ Update all marks for this article: ;; #### NOTE: it is possible that the new article number ;; #### already belongs to a range, whereas the corresponding -- 2.25.1