Mercurial > hg > xemacs-beta

comparison lisp/w3/url-cookie.el @ 144:318232e2a3f0 r20-2b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b6
author cvs
date Mon, 13 Aug 2007 09:34:14 +0200
parents 9b50b4588a93
children
comparison
equal deleted inserted replaced
143:50e7fedfe353 144:318232e2a3f0
1 ;;; url-cookie.el --- Netscape Cookie support 1 ;;; url-cookie.el --- Netscape Cookie support
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/04/11 14:41:18 3 ;; Created: 1997/05/09 05:05:21
4 ;; Version: 1.16 4 ;; Version: 1.17
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.
379 (while rest 379 (while rest
380 (setq cur (pop rest)) 380 (setq cur (pop rest))
381 (url-cookie-store (car cur) (cdr cur) 381 (url-cookie-store (car cur) (cdr cur)
382 expires domain path secure)))) 382 expires domain path secure))))
383 (t 383 (t
384 (url-warn 'url (format 384 (message "%s tried to set a cookie for domain %s - rejected."
385 (concat "%s tried to set a cookie for domain %s\n" 385 (url-host url-current-object) domain)))))
386 "Permission denied - cookie rejected.\n"
387 "Set-Cookie: %s")
388 (url-host url-current-object) domain str))))))
389 386
390 (provide 'url-cookie) 387 (provide 'url-cookie)