[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el |
Date: |
Thu, 05 Jan 2006 22:10:47 +0000 |
Index: emacs/lisp/url/url-cookie.el
diff -u emacs/lisp/url/url-cookie.el:1.16 emacs/lisp/url/url-cookie.el:1.17
--- emacs/lisp/url/url-cookie.el:1.16 Wed Dec 21 20:08:48 2005
+++ emacs/lisp/url/url-cookie.el Thu Jan 5 22:10:47 2006
@@ -1,7 +1,7 @@
;;; 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 @@
(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 @@
(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 @@
(* 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 @@
(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 @@
(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 @@
:type 'integer
:group 'url)
-;;;###autoload
(defun url-cookie-setup-save-timer ()
"Reset the cookie saver timer."
(interactive)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/url/url-cookie.el,
Stefan Monnier <=