* nnml.el (nnml-request-compact-group): Don't bug out if we can't delete files
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Mon, 8 Jul 2013 14:56:46 +0000 (16:56 +0200)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Mon, 8 Jul 2013 14:56:53 +0000 (16:56 +0200)
 (bug#13481).

lisp/ChangeLog
lisp/nnml.el

index d11974f..19f69dd 100644 (file)
@@ -1,3 +1,8 @@
+2013-07-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnml.el (nnml-request-compact-group): Don't bug out if we can't
+       delete files (bug#13481).
+
 2013-07-08  Tassilo Horn  <tsdh@gnu.org>
 
        * gnus-registry.el (gnus-registry-remove-extra-data): New function.
index 64e1ee1..05d0c90 100644 (file)
@@ -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