;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:18 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\301\303!\210\301\304!\210\305\306\307\310\311\312\311\313\314\315&	\210\316\317\320\321#\210\322\316\317\323\324\325!!#\210)\307\207" [file require url-util url-parse url-domsuf custom-declare-group url-cookie nil "URL cookies." :prefix "url-" "url-cookie-" :group url put url-cookie-name compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-name (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-name 'url-cookie)) (aref cl-x 1)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 10)
(defalias 'url-cookie-name #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-name url-cookie 1] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-value compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-value (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-value 'url-cookie)) (aref cl-x 2)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-value #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-value url-cookie 2] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-expires compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-expires (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-expires 'url-cookie)) (aref cl-x 3)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-expires #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-expires url-cookie 3] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-localpart compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-localpart (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-localpart 'url-cookie)) (aref cl-x 4)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-localpart #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-localpart url-cookie 4] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-domain compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-domain (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-domain 'url-cookie)) (aref cl-x 5)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-domain #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-domain url-cookie 5] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-secure compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-secure (or (and (memq (aref cl-x 0) cl-struct-url-cookie-tags)) (error "%s accessing a non-%s" 'url-cookie-secure 'url-cookie)) (aref cl-x 6)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-secure #[(cl-x) "\302H	>\204\303\304\305\306#\210\307H\207" [cl-x cl-struct-url-cookie-tags 0 error "%s accessing a non-%s" url-cookie-secure url-cookie 6] 4])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-p compiler-macro #[(_cl-whole-arg cl-x) "\301\302\303\304\211\211&\207" [cl-x cl--defsubst-expand (cl-x) (cl-block url-cookie-p (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-url-cookie-tags) t)) nil] 7] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
(defalias 'url-cookie-p #[(cl-x) "\302!\205G\303Y\205\304H	>\205\305\207" [cl-x cl-struct-url-cookie-tags vectorp 7 0 t] 2])
(byte-code "\301\302\303\304#\210\305\301\302\306\307\310!!#\210)\301\207" [file put url-cookie-create compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X@\314>\203?AA\211\202*\315>A@\203N\316\211\202*\317\320@\"\210\202()\321\322\323\316\316	\n\f
&.\207" [#1# name value expires localpart domain :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" cl--defsubst-expand (name value expires localpart domain secure) (cl-block url-cookie-create (vector 'url-cookie name value expires localpart domain secure)) secure #:--cl-keys-- cl-whole] 13 "\n\n(fn CL-WHOLE &cl-quote &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)"] "/builddir/build/BUILD/emacs-24.3/lisp/url/url-cookie.el" compiler-macro-file purecopy file-name-nondirectory] 6)
#@56 

(fn &key NAME VALUE EXPIRES LOCALPART DOMAIN SECURE)
(defalias 'url-cookie-create #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X@\314>\203?AA\211\202*\315>A@\203N\316\211\202*\317\320@\"\210\202()\321\322	\n\f
&.\207" [#1# name value expires localpart domain :name :value :expires :localpart :domain :secure (:name :value :expires :localpart :domain :secure :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :value :expires :localpart :domain :secure)" vector url-cookie secure #2=#:--cl-keys--] 9 (#$ . 6449)])
(byte-code "\301C\302\301\303\304#\210\302\301\305\306#\210\302\301\307\310#\210\302\301\311\310#\210\302\312\313\314#\210\302\315\313\316#\210\302\317\313\314#\210\302\320\313\314#\210\302\321\313\314#\210\302\322\313\314#\210\302\323\313\314#\210\302\324\313\314#\207" [cl-struct-url-cookie-tags url-cookie put cl-struct-slots ((cl-tag-slot) (name) (value) (expires) (localpart) (domain) (secure)) cl-struct-type (vector t) cl-struct-include nil cl-struct-print url-cookie-create side-effect-free t url-cookie-p error-free url-cookie-secure url-cookie-domain url-cookie-localpart url-cookie-expires url-cookie-value url-cookie-name] 4)
#@27 Where cookies are stored.
(defvar url-cookie-storage nil (#$ . 7713))
#@34 Where secure cookies are stored.
(defvar url-cookie-secure-storage nil (#$ . 7789))
(byte-code "\300\301\302\303\304\305\306\307\306\310&	\210\300\311\302\312\304\313\306\310&\210\300\314\302\315\304\313\306\310&\207" [custom-declare-variable url-cookie-file nil "File where cookies are stored on disk." :type (choice (const :tag "Default" :value nil) file) :group url-file url-cookie url-cookie-confirmation "If non-nil, confirmation by the user is required to accept HTTP cookies." boolean url-cookie-multiple-line "If nil, HTTP requests put all cookies for the server on one line.\nSome web servers, such as http://www.hotmail.com/, only accept cookies\nwhen they are on one line.  This is broken behavior, but just try\ntelling Microsoft that."] 10)
#@69 Whether the cookies list has changed since the last save operation.
(defvar url-cookies-changed-since-last-save nil (#$ . 8551))
#@40 Load FNAME, default `url-cookie-file'.
(defalias 'url-cookie-parse-file #[(&optional fname) "\302\206	\303\211#\207" [fname url-cookie-file load t] 4 (#$ . 8686)])
(defalias 'url-cookie-clean-up #[(&optional secure) "\203\306\202	\307\310\211\211J\310\211\203\201
@\310\fA\310\211\203m
@\311!\203fG\312Y\203f\313H>\203f\314!\204f\313H>\204Z\315\316\317\320#\210\321H\203f	B
A\211\204&*	\203z\f	\241\210\f\nB
A\211\204*\nL+\207" [secure new-cookies new var cur --dolist-tail-- url-cookie-secure-storage url-cookie-storage nil vectorp 7 0 url-cookie-expired-p error "%s accessing a non-%s" url-cookie-expires url-cookie 3 cur-cookie cl-struct-url-cookie-tags] 5])
(defalias 'url-cookie-write-file #[(&optional fname) "\205U	\204\f\306\n!\307\310\311\217\203\312\313	\"\207\314 \210\314\315!\210\316\317!rq\210\320\216\321\322\323\261\210\324\fp\"\210\325c\210\324
p\"\210\326c\210\327\330\331\332\261\210\333\334!\210\335\336	!\210+\307\211\207" [url-cookies-changed-since-last-save fname url-cookie-file #1=#:temp-buffer url-cookie-storage url-cookie-secure-storage expand-file-name nil (byte-code "\301!\210\302\207" [fname url-make-private-file nil] 2) ((error t)) message "Error accessing cookie file `%s'" url-cookie-clean-up t generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ";; Emacs-W3 HTTP cookies file\n" ";; Automatically generated file!!! DO NOT EDIT!!!\n\n" "(setq url-cookie-storage\n '" pp ")\n(setq url-cookie-secure-storage\n '" ")\n" "\f\n;; Local Variables:\n" ";; version-control: never\n" ";; no-byte-compile: t\n" ";; End:\n" make-local-variable version-control never write-file] 4])
#@17 Store a cookie.
(defalias 'url-cookie-store #[(name value &optional expires domain localpart secure) "\203	\202	\n\306\211\307
\"\211\203\277A\211\306\211\203\237@\310H>\204<\311\312\313\314#\210\315H\232\203\226\310H>\204V\311\312\316\314#\210\317H\232\203\226\310H>\204n\311\312\320\314#\210\211\321I\210)\310H>\204\211\311\312\322\314#\210\211\323I\210)\324A\211\204%\306\f*?\205\364\325\314&AB\241\202\364\325\314&
\203\337
\fD
AB\241\202\364\203\355\fDC\211\202\364\fDC\211+\207" [secure url-cookie-secure-storage url-cookie-storage found-domain tmp storage nil assoc 0 error "%s accessing a non-%s" url-cookie-localpart url-cookie 4 url-cookie-name 1 url-cookie-expires 3 url-cookie-value 2 t vector domain cur --dolist-tail-- localpart cl-struct-url-cookie-tags name #1=#:v expires #2=#:v value] 10 (#$ . 10426)])
#@38 Return non-nil if COOKIE is expired.
(defalias 'url-cookie-expired-p #[(cookie) "\303H	>\204\304\305\306\307#\210\310H\211G\303V\205!\311 \311\312\n!!V)\207" [cookie cl-struct-url-cookie-tags exp 0 error "%s accessing a non-%s" url-cookie-expires url-cookie 3 float-time date-to-time] 5 (#$ . 11367)])
#@58 Retrieve all cookies for a specified HOST and LOCALPART.
(defalias 'url-cookie-retrieve #[(host &optional localpart secure) "\203\306	\n\"\202\f\n\307\310\211\211\211\310\211\203\261@\211A@\203\250\311\312\313@\314H\315=\203E@\316\310O\202H@!\317Q\"\203\250
\310\211\203\247@\211\314H>\204o\320\321\322\323#\210\324H\211;\203\213;\203\213\311\325\313!P\"\202\217\232\203\236\326!\204\236\fBA\211\204[*A\211\204!*\f-\207" [secure url-cookie-secure-storage url-cookie-storage localpart-match retval cookies append t nil string-match "^.*" regexp-quote 0 46 1 "$" error "%s accessing a non-%s" url-cookie-localpart url-cookie 4 "^" url-cookie-expired-p case-fold-search storage cur --dolist-tail-- host cl-struct-url-cookie-tags localpart] 7 (#$ . 11681)])
(defalias 'url-cookie-generate-header-lines #[(host localpart secure) "\306	\n#\307\211\211\205\310
\311\"\211\307\211\203~@\312\313\314H>\2044\315\316\317\320#\210\321H\314H>\204H\315\316\322\320#\210\323H#\203f\324\325\fGG\326#W\203f\f\327Q\202t\f\203q\f\330Q\202t\331PA\211\204*\f\203\211\f\332P\202\212\333+\207" [host localpart secure chunk retval cookies url-cookie-retrieve nil sort #[(x y) "\303H	>\204\304\305\306\307#\210\310HG\n\303H	>\204 \304\305\306\307#\210\n\310HGV\207" [x cl-struct-url-cookie-tags y 0 error #1="%s accessing a non-%s" url-cookie-localpart url-cookie 4] 5] format "%s=%s" 0 error #1# url-cookie-name url-cookie 1 url-cookie-value 2 80 + 4 "
\nCookie: " "; " "Cookie: " "
\n" "" cur --dolist-tail-- cl-struct-url-cookie-tags url-cookie-multiple-line] 8])
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\304\312\306\307&\207" [custom-declare-variable url-cookie-trusted-urls nil "A list of regular expressions matching URLs to always accept cookies from." :type (repeat regexp) :group url-cookie url-cookie-untrusted-urls "A list of regular expressions matching URLs to never accept cookies from." (repeat regexp)] 8)
(defalias 'url-cookie-host-can-set-p #[(host domain) "\304\305\n\230\203\305\202)\306H\307=\203\310\304O\311!\205)\312\313!\314P\n\"*\207" [case-fold-search last host domain nil t 0 46 1 url-domsuf-cookie-allowed-p string-match regexp-quote "$"] 3])
(defalias 'url-cookie-handle-set-cookie #[(str) "\306\307	\306\"\306\310\311\n\306#\205\306\310\312\n\306#\243\206.
\313H=>\204+\314\315\316\317#\210
\320H>\321\306!?@'A&\310\322\n\306#\243B\310\323\n\306#\243\206b\324
\313H=>\204^\314\315\325\317#\210
\326H!C\327D\n\327E\211F\203\216F@\211E@\227\330\235\204\205EDBDFA\211F\204q*B\203\276\331\332B\"\203\276\333\334B\"\335\333\336B\"\335\333\337B\"\335\333\320B\"\340\333\341B\"\342\260\nBB\203\354\331\343B\"\203\354\333\334B\"\344\333\336B\"\344\333\337B\"\335\333\320B\"\345\333\326B\"\260	B':\203
\331'@?\"\203
\313\225\313\224Z\211'\202\356'\211A'@\210\202\354&:\2038
\331&@?\"\203-
\313\225\313\224Z\211&\202
&\211A&@\210\202
'\203R
&\203R
'&V\203N
\346\202O
\347\327L\210&\203[
\327\202gG\350=\204o
G<\203s
\351G>\203s
\327\202gH\203'\204\352 I\353\216JKr\354\355!q\210p\356 \210KJ\327\211LM\306\211N\306OP\357 \210\360\361!\210+\211QRD\327S\211F\203\326
F@S\362\363\364S@SA#!\210FA\211F\204\274
*\365Q!\210+T\363\366
\313H=>\204\360
\314\315\316\317#\210
\320H\"!?\367\355!\203\370\355!\210*\203\327\202g\371
\313H=>\204\314\315\316\317#\210
\320H>\"\203PD\327U\211F\205LF@U\372U@UAB>C\f&\210FA\211F\204,\327*\202g\373\374
\313H=>\204a\314\315\316\317#\210
\320H>#.\n\207" [url-cookies-changed-since-last-save str args case-fold-search secure url-current-object t url-parse-args assoc-string "secure" "domain" 0 error "%s accessing a non-%s" url-host url 4 url-view-url "expires" "path" file-name-directory url-filename 6 nil ("secure" "domain" "expires" "path") string-match "^[^,]+, +\\(..\\)-\\(...\\)-\\(..\\) +\\(..:..:..\\) +\\[*\\([^]]+\\)\\]*$" match-string 1 " " 2 3 " [" 5 "]" "\\([0-9]+\\)-\\([A-Za-z]+\\)-\\([0-9]+\\)[ 	]+\\([0-9]+:[0-9]+:[0-9]+\\)\\(\\.[0-9]+\\)*[ 	]+\\([-+a-zA-Z0-9]+\\)" "-" ".00 " untrusted trusted paranoid cookies current-window-configuration ((set-window-configuration #1=#:wconfig)) get-buffer-create "*Cookie Warning*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ format "%s - %s" internal-temp-output-buffer-show "Allow %s to set these cookies? " get-buffer kill-buffer url-cookie-host-can-set-p url-cookie-store url-lazy-message "%s tried to set a cookie for domain %s - rejected." cl-struct-url-tags domain current-url url-cookie-trusted-urls url-cookie-untrusted-urls expires localpart rest this --dolist-tail-- url-privacy-level url-cookie-confirmation #1# default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output x url-confirmation-func cur] 12])
(defvar url-cookie-timer nil)
#@258 The number of seconds between automatic saves of cookies.
Default is 1 hour.  Note that if you change this variable outside of
the `customize' interface after `url-do-setup' has been run, you need
to run the `url-cookie-setup-save-timer' function manually.
(custom-declare-variable 'url-cookie-save-interval 3600 '(#$ . 16757) :set #[(var val) "\303	\"\210\304\302!\205\n\205\305 \207" [var val url-setup-done set-default boundp url-cookie-setup-save-timer] 3] :type 'integer :group 'url-cookie)
#@31 Reset the cookie saver timer.
(defalias 'url-cookie-setup-save-timer #[nil "\302\303\304\217\210\302	\205\305	\211\306#\211\207" [url-cookie-timer url-cookie-save-interval nil (cancel-timer url-cookie-timer) ((error)) run-at-time url-cookie-write-file] 4 (#$ . 17264) nil])
(provide 'url-cookie)