Mercurial > hg > xemacs-beta
diff lisp/w3/url-cookie.el @ 124:9b50b4588a93 r20-1b15
Import from CVS: tag r20-1b15
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:26:39 +0200 |
parents | 9f59509498e1 |
children | 318232e2a3f0 |
line wrap: on
line diff
--- a/lisp/w3/url-cookie.el Mon Aug 13 09:26:04 2007 +0200 +++ b/lisp/w3/url-cookie.el Mon Aug 13 09:26:39 2007 +0200 @@ -1,7 +1,7 @@ ;;; url-cookie.el --- Netscape Cookie support ;; Author: wmperry -;; Created: 1997/03/26 00:06:01 -;; Version: 1.15 +;; Created: 1997/04/11 14:41:18 +;; Version: 1.16 ;; Keywords: comm, data, processes, hypermedia ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -268,11 +268,15 @@ "A regular expression of top-level domains that only require two matching '.'s in the domain name in order to set a cookie.") -(defvar url-cookie-trusted-urls nil - "*A list of regular expressions matching URLs to always accept cookies from.") +(defcustom url-cookie-trusted-urls nil + "*A list of regular expressions matching URLs to always accept cookies from." + :type '(repeat regexp) + :group 'url-cookie) -(defvar url-cookie-untrusted-urls nil - "*A list of regular expressions matching URLs to never accept cookies from.") +(defcustom url-cookie-untrusted-urls nil + "*A list of regular expressions matching URLs to never accept cookies from." + :type '(repeat regexp) + :group 'url-cookie) (defun url-cookie-host-can-set-p (host domain) (let ((numdots 0)