Mercurial > hg > xemacs-beta

comparison lisp/w3/url-cookie.el @ 124:9b50b4588a93 r20-1b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b15
author cvs
date Mon, 13 Aug 2007 09:26:39 +0200
parents 9f59509498e1
children 318232e2a3f0
comparison
equal deleted inserted replaced
123:c77884c6318d 124:9b50b4588a93
1 ;;; url-cookie.el --- Netscape Cookie support 1 ;;; url-cookie.el --- Netscape Cookie support
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/26 00:06:01 3 ;; Created: 1997/04/11 14:41:18
4 ;; Version: 1.15 4 ;; Version: 1.16
5 ;; Keywords: comm, data, processes, hypermedia 5 ;; Keywords: comm, data, processes, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
266 "\\|") 266 "\\|")
267 "\\)$") 267 "\\)$")
268 "A regular expression of top-level domains that only require two matching 268 "A regular expression of top-level domains that only require two matching
269 '.'s in the domain name in order to set a cookie.") 269 '.'s in the domain name in order to set a cookie.")
270 270
271 (defvar url-cookie-trusted-urls nil 271 (defcustom url-cookie-trusted-urls nil
272 "*A list of regular expressions matching URLs to always accept cookies from.") 272 "*A list of regular expressions matching URLs to always accept cookies from."
273 273 :type '(repeat regexp)
274 (defvar url-cookie-untrusted-urls nil 274 :group 'url-cookie)
275 "*A list of regular expressions matching URLs to never accept cookies from.") 275
276 (defcustom url-cookie-untrusted-urls nil
277 "*A list of regular expressions matching URLs to never accept cookies from."
278 :type '(repeat regexp)
279 :group 'url-cookie)
276 280
277 (defun url-cookie-host-can-set-p (host domain) 281 (defun url-cookie-host-can-set-p (host domain)
278 (let ((numdots 0) 282 (let ((numdots 0)
279 (tmp domain) 283 (tmp domain)
280 (last nil) 284 (last nil)