From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Wed, 23 Sep 2020 23:01:38 +0000 (-0700)
Subject: Write Gnus active files with quotes around group names
X-Git-Tag: emacs-28.0.90~5915
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e542b4b785b1646ba7a801090a6e937645b6b330;p=emacs.git

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 4876715ae6a..aa9f137e203 100644
--- 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))