[gnus git] branch master updated: m0-7-169-g8e646eb =1= * nnml.el (nnml-request-compact-group): Don't bug out if we can't delete files
Lars Magne Ingebrigtsen <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via 8e646eb8d4014eb95bb10e993ebf5b1ae845870d (commit)
from 584376ed60bab46579d52434749da73c1580b600 (commit)
- Log -----------------------------------------------------------------
commit 8e646eb8d4014eb95bb10e993ebf5b1ae845870d
Author: Lars Magne Ingebrigtsen <[email protected]>
Date: Mon Jul 8 16:56:46 2013 +0200
* nnml.el (nnml-request-compact-group): Don't bug out if we can't delete files
(bug#13481).
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d11974f..19f69dd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-08 Lars Magne Ingebrigtsen <[email protected]>
+
+ * nnml.el (nnml-request-compact-group): Don't bug out if we can't
+ delete files (bug#13481).
+
2013-07-08 Tassilo Horn <[email protected]>
* gnus-registry.el (gnus-registry-remove-extra-data): New function.
diff --git a/lisp/nnml.el b/lisp/nnml.el
index 64e1ee1..05d0c90 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
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/ChangeLog | 5 +++++
lisp/nnml.el | 5 ++++-
2 files changed, 9 insertions(+), 1 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project