]> git.eshelyaron.com Git - emacs.git/commitdiff
Write Gnus active files with quotes around group names
authorEric Abrahamsen <eric@ericabrahamsen.net>
Wed, 23 Sep 2020 23:01:38 +0000 (16:01 -0700)
committerEric Abrahamsen <eric@ericabrahamsen.net>
Wed, 23 Sep 2020 23:01:38 +0000 (16:01 -0700)
* 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.

lisp/gnus/gnus-util.el

index 4876715ae6a0cddb77dc27b521492a0c02b64796..aa9f137e203b8c1b57d17dc3d9d27200e8e50d34 100644 (file)
@@ -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))