2001-08-25 Simon Josefsson <jas@extundo.com>

	* nnml.el (nnml-save-marks): Wrap saving marks in a
	condition-case, to allow user to start Gnus if saving marks failed
	for some reason.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 005c064..3d03092 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-25  Simon Josefsson  <jas@extundo.com>
+
+       * nnml.el (nnml-save-marks): Wrap saving marks in a
+       condition-case, to allow user to start Gnus if saving marks failed
+       for some reason.
+
 2001-08-24 16:05:38  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-spec.el (gnus-compile): Don't compile gnus-version. 

diff --git a/lisp/nnml.el b/lisp/nnml.el
index d7b5f4a..23138b4 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -908,11 +908,16 @@ check twice.")
   (let ((file-name-coding-system nnmail-pathname-coding-system)
        (file (expand-file-name nnml-marks-file-name
                                (nnmail-group-pathname group nnml-directory))))
-    (nnml-possibly-create-directory group)
-    (with-temp-file file
-      (erase-buffer)
-      (princ nnml-marks (current-buffer))
-      (insert "\n"))))
+    (condition-case err
+       (progn
+         (nnml-possibly-create-directory group)
+         (with-temp-file file
+           (erase-buffer)
+           (princ nnml-marks (current-buffer))
+           (insert "\n")))
+      (error (or (gnus-yes-or-no-p
+                 (format "Could not write to %s (%s).  Continue? " file err))
+                (error "Cannot write to %s (%s)" err))))))
 
 (defun nnml-open-marks (group server)
   (let ((file (expand-file-name