Fix quoting problem in pop3-uidl-save

* lisp/net/pop3.el (pop3-uidl-save): Quote strings properly
(bug#43896).

diff --git a/lisp/net/pop3.el b/lisp/net/pop3.el
index aa34fe7f1a3c4a011933b9cfb4eef1a2d0fe0fa3..dcac36f2a4a6d8a6e7c54f8bcc91b857696ff761 100644 (file)
--- a/lisp/net/pop3.el
+++ b/lisp/net/pop3.el
@@ -463,7 +463,7 @@ Return non-nil if it is necessary to update the local UIDL file."
                (when (cdr elt)
                  (insert "(\"" (pop elt) "\"\n   ")
                  (while elt
-                   (insert (format "\"%s\" %s\n   " (pop elt) (pop elt))))
+                   (insert (format "%S %s\n   " (pop elt) (pop elt))))
                  (delete-char -4)
                  (insert ")\n  ")))
              (delete-char -3)