;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/url/url-vars.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.

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


#@32 Version number of URL package.
(defconst url-version "Emacs" (#$ . 555))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\306\301&\210\300\314\302\315\312\313\312\316\306\301&	\210\300\317\302\320\312\313\306\301&\210\300\321\302\322\312\313\306\301&\207" [custom-declare-group url nil "Uniform Resource Locator tool." :version "22.1" :group comm url-file "URL storage." :prefix "url-" url-cache "URL cache." "url-cache-" url-mime "MIME options of URL." url-hairy "Hairy options of URL."] 10)
#@45 A parsed representation of the current URL.
(defvar url-current-object nil (#$ . 1083))
#@66 A parsed representation of the MIME headers for the current URL.
(defvar url-current-mime-headers nil (#$ . 1177))
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312&\210\303\313\314\315\307\316\311\317&\207" [mapc make-variable-buffer-local (url-current-object url-current-mime-headers) custom-declare-variable url-honor-refresh-requests t "Whether to do automatic page reloads.\nThese are done at the request of the document author or the server via\nthe `Refresh' header in an HTTP response.  If nil, no refresh\nrequests will be honored.  If t, all refresh requests will be honored.\nIf non-nil and not t, the user will be asked for each refresh request." :type (choice (const :tag "off" nil) (const :tag "on" t) (const :tag "ask" 'ask)) :group url-hairy url-automatic-caching nil "If non-nil, all documents will be automatically cached to the local disk." boolean url-cache] 8)
#@28 Where to send bug reports.
(defconst url-bug-address "bug-gnu-emacs@gnu.org" (#$ . 2080))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\300\315\316\317\320\321\322\323\304\324\306\307&\207" [custom-declare-variable url-personal-mail-address nil "Your full email address.\nThis is what is sent to HTTP servers as the FROM field in an HTTP\nrequest." :type (choice (const :tag "Unspecified" nil) string) :group url url-directory-index-file "index.html" "The filename to look for when indexing a directory.\nIf this file exists, and is readable, then it will be viewed instead of\nusing `dired' to view the directory." string url-file url-privacy-level '(email) "How private you want your requests to be.\nHTTP has header fields for various information about the user, including\noperating system information, email addresses, the last page you visited, etc.\nThis variable controls how much of this information is sent.\n\nThis should a symbol or a list.\nValid values if a symbol are:\nnone     -- send all information\nlow      -- don't send the last location\nhigh     -- don't send the email address or last location\nparanoid -- don't send anything\n\nIf a list, this should be a list of symbols of what NOT to send.\nValid symbols are:\nemail    -- the email address\nos       -- the operating system info\nlastloc  -- the last location\nagent    -- do not send the User-Agent string\ncookies  -- never accept HTTP cookies\n\nSamples:\n\n (setq url-privacy-level 'high)\n (setq url-privacy-level '(email lastloc))    ;; equivalent to 'high\n (setq url-privacy-level '(os))\n\n::NOTE::\nThis variable controls several other variables and is _NOT_ automatically\nupdated.  Call the function `url-setup-privacy-info' after modifying this\nvariable." :initialize custom-initialize-default :set #[(sym val) "\302	\"\210\303 \207" [sym val set-default url-setup-privacy-info] 3] (radio (const :tag "None (you believe in the basic goodness of humanity)" :value none) (const :tag "Low (do not reveal last location)" :value low) (const :tag "High (no email address or last location)" :value high) (const :tag "Paranoid (reveal nothing!)" :value paranoid) (checklist :tag "Custom" (const :tag "Email address" :value email) (const :tag "Operating system" :value os) (const :tag "Last location" :value lastloc) (const :tag "Browser identification" :value agent) (const :tag "No cookies" :value cookie)))] 12)
#@37 Do not do decompression if non-nil.
(defvar url-inhibit-uncompression nil (#$ . 4532))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\300\315\316\317\304\320\306\314&\210\300\321\316\322\304\323\306\324&\207" [custom-declare-variable url-uncompressor-alist '((".z" . "x-gzip") (".gz" . "x-gzip") (".uue" . "x-uuencoded") (".hqx" . "x-hqx") (".Z" . "x-compress") (".bz2" . "x-bzip2") (".xz" . "x-xz")) "An alist of file extensions and appropriate content-transfer-encodings." :type (repeat (cons :format "%v" (string :tag "Extension") (string :tag "Encoding"))) :group url-mime url-mail-command 'compose-mail "This function will be called whenever URL needs to send mail.\nIt should enter a mail-mode-like buffer in the current window.\nThe commands `mail-to' and `mail-subject' should still work in this\nbuffer, and it should use `mail-header-separator' if possible." function url url-proxy-services nil "An alist of schemes and proxy servers that gateway them.\nLooks like ((\"http\" . \"hostname:portnumber\") ...).  This is set up\nfrom the ACCESS_proxy environment variables." (repeat (cons :format "%v" (string :tag "Protocol") (string :tag "Proxy"))) url-standalone-mode "Rely solely on the cache?" boolean url-cache] 8)
#@53 Characters allowable in a MIME multipart separator.
(defvar url-mime-separator-chars (mapcar 'identity "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'()+_,-./=?") (#$ . 5810))
#@202 List of ports to warn the user about connecting to.
Defaults to just the mail, chargen, and NNTP ports so you cannot be
tricked into sending fake mail or forging messages by a malicious HTML
document.
(custom-declare-variable 'url-bad-port-list ''("25" "119" "19") '(#$ . 6010) :type '(repeat (string :tag "Port")) :group 'url-hairy)
#@65 Regexp used in parsing `Content-Type' for a charset indication.
(defvar url-mime-content-type-charset-regexp ";[ 	]*charset=\"?\\([^\"]+\\)\"?" (#$ . 6350))
#@41 Any data to send with the next request.
(defvar url-request-data nil (#$ . 6513))
#@101 A list of extra headers to send with the next request.
Should be an assoc list of headers/contents.
(defvar url-request-extra-headers nil (#$ . 6602))
#@41 The method to use for the next request.
(defvar url-request-method nil (#$ . 6759))
#@64 String to send in the Accept-encoding: field in HTTP requests.
(defvar url-mime-encoding-string nil (#$ . 6849))
#@120 Generate a list of preferred MIME charsets for HTTP requests.
Generated according to current coding system priorities.
(defalias 'url-mime-charset-string #[nil "\305\306!\210\307\310!\205A\310\311	\311\211\203+@\312\n@!\203$\n@BA\211\204*\237)!\313\314\f\211A@\"\315\316\f\317#\320Q)\207" [accum mm-mime-mule-charset-alist elt --dolist-tail-- ordered require mm-util fboundp sort-coding-systems nil mm-coding-system-p format "%s;q=1, " mapconcat symbol-name ";q=0.5, " ";q=0.5"] 6 (#$ . 6969)])
#@187 String to send in the Accept-charset: field in HTTP requests.
The MIME charset corresponding to the most preferred coding system is
given priority 1 and the rest are given priority 0.5.
(defvar url-mime-charset-string nil (#$ . 7488))
(defalias 'url-set-mime-charset-string #[nil "\300 \211\207" [url-mime-charset-string] 2])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\311\313&	\207" [add-hook set-language-environment-hook url-set-mime-charset-string custom-declare-variable url-mime-language-string nil "String to send in the Accept-language: field in HTTP requests.\n\nSpecifies the preferred language when servers can serve documents in\nseveral languages.  Use RFC 1766 abbreviations, e.g.: `en' for\nEnglish, `de' for German.  A comma-separated specifies descending\norder of preference.  The ordering can be made explicit using `q'\nfactors defined by HTTP, e.g. `de,en-gb;q=0.8,en;q=0.7'.  `*' means\nget the first available language (as opposed to the default)." :type (radio (const :tag "None (get default language version)" :value nil) (const :tag "Any (get first available language version)" :value "*") (string :tag "Other")) :group url-mime i18n] 10)
#@69 String to send to the server in the Accept: field in HTTP requests.
(defvar url-mime-accept-string nil (#$ . 8680))
#@38 Version number of package using URL.
(defvar url-package-version nil (#$ . 8802))
#@28 Name of package using URL.
(defvar url-package-name nil (#$ . 8890))
#@32 What type of system we are on.
(defvar url-system-type nil (#$ . 8965))
#@20 What OS we are on.
(defvar url-os-type nil (#$ . 9043))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\315\310\316\317#\210\300\320\321\322\304\323\306\307&\207" [custom-declare-variable url-max-password-attempts 5 "Maximum number of times a password will be prompted for.\nApplies when a protected document is denied by the server." :type integer :group url url-temporary-directory (or (getenv "TMPDIR") "/tmp") "Where temporary files go." directory url-file make-obsolete-variable temporary-file-directory "23.1" url-show-status t "Whether to show a running total of bytes transferred.\nCan cause a large hit if using a remote X display over a slow link, or\na terminal with a slow modem." boolean] 8)
#@82 Either nil or the fully qualified proxy URL in use, e.g.
http://www.example.com/
(defvar url-using-proxy nil (#$ . 9796))
#@197 The default news server from which to get newsgroups/articles.
Applies if no server is specified in the URL.  Defaults to the
environment variable NNTPSERVER or "news" if NNTPSERVER is
undefined.
(custom-declare-variable 'url-news-server nil '(#$ . 9925) :type '(choice (const :tag "None" :value nil) string) :group 'url)
#@55 A regular expression that will match an absolute URL.
(defvar url-nonrelative-link "\\`\\([a-zA-Z][-a-zA-Z0-9+.]*:\\)" (#$ . 10253))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\314&\210\300\315\316\317\304\320\306\314&\207" [custom-declare-variable url-max-redirections 30 "The maximum number of redirection requests to honor in a HTTP connection.\nA negative number means to honor an unlimited number of redirection requests." :type integer :group url url-confirmation-func 'y-or-n-p "What function to use for asking yes or no functions.\nPossible values are `yes-or-no-p' or `y-or-n-p', or any function that\ntakes a single argument (the prompt), and returns t only if a positive\nanswer is given." (choice (const :tag "Short (y or n)" :value y-or-n-p) (const :tag "Long (yes or no)" :value yes-or-no-p) (function :tag "Other")) url-hairy url-gateway-method 'native "The type of gateway support to use.\nShould be a symbol specifying how to get a connection from the local machine.\n\nCurrently supported methods:\n`telnet': Run telnet in a subprocess to connect;\n`rlogin': Rlogin to another machine to connect;\n`socks': Connect through a socks server;\n`tls': Connect with TLS;\n`ssl': Connect with SSL (deprecated, use `tls' instead);\n`native': Connect directly." (radio (const :tag "Telnet to gateway host" :value telnet) (const :tag "Rlogin to gateway host" :value rlogin) (const :tag "Use SOCKS proxy" :value socks) (const :tag "Use SSL/TLS for all connections" :value tls) (const :tag "Use SSL for all connections (obsolete)" :value ssl) (const :tag "Direct connection" :value native))] 8)
#@36 Has setup configuration been done?
(defvar url-setup-done nil (#$ . 11897))
(defconst url-weekday-alist '(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3) ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6) ("Tues" . 2) ("Thurs" . 4) ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3) ("Thu" . 4) ("Fri" . 5) ("Sat" . 6)))
(defconst url-monthabbrev-alist '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)))
(defvar url-lazy-message-time 0)
(defvar url-extensions-header "Security/Digest Security/SSL")
#@34 A syntax table for parsing URLs.
(defvar url-parse-syntax-table (copy-syntax-table emacs-lisp-mode-syntax-table) (#$ . 12513))
(byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\313\314\315\316\317\320\321\322&\207" [url-parse-syntax-table modify-syntax-entry 39 "\"" 96 60 "(>" 62 ")<" 47 " " custom-declare-variable url-load-hook nil "Hook run after initializing the URL library." :group url :type hook] 8)
(defconst url-working-buffer " *url-work")
#@144 Non-nil means don't open new network connections.
This should be set, e.g. by mail user agents rendering HTML to avoid
`bugs' which call home.
(defvar url-gateway-unplugged nil (#$ . 13025))
(provide 'url-vars)