comparison lisp/url/url-cookie.el @ 83428:d0eee3282e6b

Merged from [e-mail]--gnu-2005 (patch 678-680) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-678 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-679 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-680 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-468

83427:2afc49c9f0c0

    (set var new)))

;;;###autoload
(defun url-cookie-write-file (&optional fname)
  (setq fname (or fname url-cookie-file))
  (cond
   ((not url-cookies-changed-since-last-save) nil)
   ((not (file-writable-p fname))
    (message "Cookies file %s (see variable `url-cookie-file') is unwritable." fname))
   (t
    (url-cookie-clean-up)
    (url-cookie-clean-up t)
    (save-excursion
      (set-buffer (get-buffer-create " *cookies*"))
      (erase-buffer)
      (fundamental-mode)
      (insert ";; Emacs-W3 HTTP cookies file\n"
	      ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
	      "(setq url-cookie-storage\n '")

83428:d0eee3282e6b

    (set var new)))

;;;###autoload
(defun url-cookie-write-file (&optional fname)
  (setq fname (or fname url-cookie-file))
  (unless (file-directory-p (file-name-directory fname))
    (ignore-errors (make-directory (file-name-directory fname))))
  (cond
   ((not url-cookies-changed-since-last-save) nil)
   ((not (file-writable-p fname))
    (message "Cookies file %s (see variable `url-cookie-file') is unwritable." fname))
   (t
    (url-cookie-clean-up)
    (url-cookie-clean-up t)
    (with-current-buffer (get-buffer-create " *cookies*")
      (erase-buffer)
      (fundamental-mode)
      (insert ";; Emacs-W3 HTTP cookies file\n"
	      ";; Automatically generated file!!! DO NOT EDIT!!!\n\n"
	      "(setq url-cookie-storage\n '")