Commit 72a30be4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(url-cookie-parse-file): Don't complain of missing file.

(url-cookie-parse-file, url-cookie-write-file, url-cookie-retrieve)
(url-cookie-generate-header-lines, url-cookie-handle-set-cookie)
(url-cookie-setup-save-timer): Remove autoload cookies.
They're only called from files that require url-cookie anyway.
parent ce0c92e1
2006-01-05 Stefan Monnier <monnier@iro.umontreal.ca>
* url-cookie.el (url-cookie-parse-file): Don't complain of missing file.
(url-cookie-parse-file, url-cookie-write-file, url-cookie-retrieve)
(url-cookie-generate-header-lines, url-cookie-handle-set-cookie)
(url-cookie-setup-save-timer): Remove autoload cookies.
They're only called from files that require url-cookie anyway.
* url-history.el (url-history-setup-save-timer)
(url-history-parse-history, url-history-save-history):
Remove autoload cookies. They're only called from url.el which requires
url-history anyway.
(url-history-parse-history): Don't complain if the file is missing.
2006-01-02 Stefan Monnier <monnier@iro.umontreal.ca>
* url-handlers.el (url-retrieve-synchronously): Don't autoload.
......
;;; url-cookie.el --- Netscape Cookie support
;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
;; 2005 Free Software Foundation, Inc.
;; 2005, 2006 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
......@@ -109,12 +109,14 @@ telling Microsoft that."
(defvar url-cookies-changed-since-last-save nil
"Whether the cookies list has changed since the last save operation.")
;;;###autoload
(defun url-cookie-parse-file (&optional fname)
(setq fname (or fname url-cookie-file))
(condition-case ()
(load fname nil t)
(error (message "Could not load cookie file %s" fname))))
(error
;; It's completely normal for the cookies file not to exist yet.
;; (message "Could not load cookie file %s" fname)
)))
(defun url-cookie-clean-up (&optional secure)
(let* (
......@@ -145,7 +147,6 @@ telling Microsoft that."
(setq new (cons cur new))))
(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))
......@@ -250,7 +251,6 @@ telling Microsoft that."
(* 1 (string-to-number (aref exp-time 0))))))
(> (- cur-norm exp-norm) 1))))))
;;;###autoload
(defun url-cookie-retrieve (host localpart &optional secure)
"Retrieve all the netscape-style cookies for a specified HOST and LOCALPART."
(let ((storage (if secure
......@@ -278,7 +278,6 @@ telling Microsoft that."
(setq retval (cons cur retval))))))
retval))
;;;###autoload
(defun url-cookie-generate-header-lines (host localpart secure)
(let* ((cookies (url-cookie-retrieve host localpart secure))
(retval nil)
......@@ -344,7 +343,6 @@ telling Microsoft that."
(t
nil))))
;;;###autoload
(defun url-cookie-handle-set-cookie (str)
(setq url-cookies-changed-since-last-save t)
(let* ((args (url-parse-args str t))
......@@ -457,7 +455,6 @@ to run the `url-cookie-setup-save-timer' function manually."
:type 'integer
:group 'url)
;;;###autoload
(defun url-cookie-setup-save-timer ()
"Reset the cookie saver timer."
(interactive)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment