bug#16805: 24.3.50; url-cookie-write-file: set print-length

[Ivan Shmakov]

>>>>> raman <tv.raman.tv@gmail.com> writes:

[…]

 > When url-cookie-write-file persists cookies to ~/.url/cookies in
 > function url-cookie-write-file we need to let-bind print-length and p
 > rint-depth -- otherwise, when the cookie list gets long, it gets
 > saved badly with "..." and this leads to any use of the url package
 > bombing.

        I believe I’ve managed to stumble upon this myself, and was able
        to successfully overcome the issue with the patch MIMEd.

        * lisp/url/url-cookie.el
        (url-cookie-write-file): Let-bind print-length and print-level
        to nil to avoid writing a garbled list.

-- 
FSF associate member #7257  http://boycottsystemd.org/  … 3013 B6A0 230E 334A

--- a/lisp/url/url-cookie.el
+++ b/lisp/url/url-cookie.el
@@ -104,9 +104,10 @@ defun url-cookie-write-file (&optional fname)
       (insert ";; Emacs-W3 HTTP cookies file\n"
              ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
              "(setq url-cookie-storage\n '")
-      (pp url-cookie-storage (current-buffer))
-      (insert ")\n(setq url-cookie-secure-storage\n '")
-      (pp url-cookie-secure-storage (current-buffer))
+      (let ((print-length nil) (print-level nil))
+       (pp url-cookie-storage (current-buffer))
+       (insert ")\n(setq url-cookie-secure-storage\n '")
+       (pp url-cookie-secure-storage (current-buffer)))
       (insert ")\n")
       (insert "\n;; Local Variables:\n"
               ";; version-control: never\n"