Write Gnus active files with quotes around group names

* lisp/gnus/gnus-util.el (gnus-write-active-file): In case of group
names with spaces in them (see Bug#42823). Names are later read with
`read', so this should be quite robust.

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 4876715ae6a0cddb77dc27b521492a0c02b64796..aa9f137e203b8c1b57d17dc3d9d27200e8e50d34 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -1177,7 +1177,7 @@ ARG is passed to the first function."
       (maphash
        (lambda (group active)
         (when active
-          (insert (format "%s %d %d y\n"
+          (insert (format "%S %d %d y\n"
                           (if full-names
                               group
                             (gnus-group-real-name group))