2001-11-15 Simon Josefsson <jas@extundo.com>

	* nnml.el (nnml-save-marks):
	* nnfolder.el (nnfolder-save-marks): Use `gnus-prin1'.
	Suggested by Istvan Marko <mi-gnus@imarko.dhs.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 129103c..86194f9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-15  Simon Josefsson  <jas@extundo.com>
+
+       * nnml.el (nnml-save-marks):
+       * nnfolder.el (nnfolder-save-marks): Use `gnus-prin1'.
+       Suggested by Istvan Marko <mi-gnus@imarko.dhs.org>.
+
 2001-11-15  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * gnus-art.el (gnus-article-wash-status-strings): Use

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index 1de4e52..149b87b 100644 (file)
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -1215,7 +1215,7 @@ This command does not work if you use short group names."
        (progn
          (with-temp-file file
            (erase-buffer)
-           (princ nnfolder-marks (current-buffer))
+           (gnus-prin1 nnfolder-marks (current-buffer))
            (insert "\n"))
          (gnus-sethash file
                        (nth 5 (file-attributes file))

diff --git a/lisp/nnml.el b/lisp/nnml.el
index a07a87f..517bd1f 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -991,7 +991,7 @@ Use the nov database for the current group if available."
          (nnml-possibly-create-directory group)
          (with-temp-file file
            (erase-buffer)
-           (princ nnml-marks (current-buffer))
+           (gnus-prin1 nnml-marks (current-buffer))
            (insert "\n"))
          (gnus-sethash file
                        (nth 5 (file-attributes file))