;ELC ;;; Compiled by aatharuv@cutter-john.mit.edu on Sun Jan 5 18:41:55 2003 ;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/url-cvs-20030105-src/lisp/url-vars.el ;;; in Emacs version 21.1.1 ;;; with bytecomp version 2.85 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`url-vars.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'mm-util) #@32 Version number of URL package. (defconst url-version (byte-code "\301\302\303\"\203\304\224\304\225O\202)\207" [x "$State: Exp $" string-match "State: \\([^ \n]+\\)" 1] 3) (#$ . 673)) (byte-code "\300\301\302\303\304\305%\210\300\306\302\307\310\311\304\301&\210\300\312\302\313\310\311\310\314\304\301& \210\300\315\302\316\310\311\304\301&\210\300\317\302\320\310\311\304\301&\207" [custom-declare-group url nil "Uniform Resource Locator tool" :group hypermedia 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 (#$ . 1297)) #@66 A parsed representation of the MIME headers for the current url. (defvar url-current-mime-headers nil (#$ . 1391)) (mapcar 'make-variable-buffer-local '(url-current-object url-current-referer url-current-mime-headers)) #@315 *Whether to do automatic page reloads. These are done at the request of the document author or the server via the `Refresh' header in an HTTP response. If nil, no refresh requests will be honored. If t, all refresh requests will be honored. If non-nil and not t, the user will be asked for each refresh request. (custom-declare-variable 'url-honor-refresh-requests 't '(#$ . -1617) :type '(choice (const :tag "off" nil) (const :tag "on" t) (const :tag "ask" 'ask)) :group 'url-hairy) #@76 *If non-nil, all documents will be automatically cached to the local disk. (custom-declare-variable 'url-automatic-caching 'nil '(#$ . -2109) :type 'boolean :group 'url-cache) #@187 *A function determining if a cached item has expired. It takes two times (numbers) as its arguments, and returns non-nil if the second time is 'too old' when compared to the first time. (custom-declare-variable 'url-cache-expired '(lambda (t1 t2) (>= (- (car t2) (car t1)) 5)) '(#$ . -2292) :type 'function :group 'url-cache) #@28 Where to send bug reports. (defvar url-bug-address "w3-bugs@xemacs.org" (#$ . 2624)) #@102 *Your full email address. This is what is sent to HTTP servers as the FROM field in an HTTP request. (custom-declare-variable 'url-personal-mail-address 'nil '(#$ . -2716) :type '(choice (const :tag "Unspecified" nil) string) :group 'url) #@163 *The filename to look for when indexing a directory. If this file exists, and is readable, then it will be viewed instead of using `dired' to view the directory. (custom-declare-variable 'url-directory-index-file '"index.html" '(#$ . -2962) :type 'string :group 'url-file) #@1063 *How private you want your requests to be. HTTP has header fields for various information about the user, including operating system information, email addresses, the last page you visited, etc. This variable controls how much of this information is sent. This should a symbol or a list. Valid values if a symbol are: none -- Send all information low -- Don't send the last location high -- Don't send the email address or last location paranoid -- Don't send anything If a list, this should be a list of symbols of what NOT to send. Valid symbols are: email -- the email address os -- the operating system info lastloc -- the last location agent -- Do not send the User-Agent string cookie -- never accept HTTP cookies Samples: (setq url-privacy-level 'high) (setq url-privacy-level '(email lastloc)) ;; equivalent to 'high (setq url-privacy-level '(os)) ::NOTE:: This variable controls several other variables and is _NOT_ automatically updated. Call the function `url-setup-privacy-info' after modifying this variable. (custom-declare-variable 'url-privacy-level ''(email) '(#$ . -3243) :type '(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))) :group 'url) #@37 Do not do decompression if non-nil. (defvar url-inhibit-uncompression nil (#$ . 4918)) #@74 *An alist of file extensions and appropriate content-transfer-encodings. (custom-declare-variable 'url-uncompressor-alist ''((".z" . "x-gzip") (".gz" . "x-gzip") (".uue" . "x-uuencoded") (".hqx" . "x-hqx") (".Z" . "x-compress") (".bz2" . "x-bzip2")) '(#$ . -5011) :type '(repeat (cons :format "%v" (string :tag "Extension") (string :tag "Encoding"))) :group 'url-mime) #@258 *This function will be called whenever url needs to send mail. It should enter a mail-mode-like buffer in the current window. The commands `mail-to' and `mail-subject' should still work in this buffer, and it should use `mail-header-separator' if possible. (custom-declare-variable 'url-mail-command '(if (fboundp 'compose-mail) 'compose-mail 'url-mail) '(#$ . -5387) :type 'function :group 'url) #@171 *An alist of schemes and proxy servers that gateway them. Looks like (("http" . "hostname:portnumber") ...). This is set up from the ACCESS_proxy environment variables. (custom-declare-variable 'url-proxy-services 'nil '(#$ . -5791) :type '(repeat (cons :format "%v" (string :tag "Protocol") (string :tag "Proxy"))) :group 'url) #@278 *Symbol indicating which function to call to read in a password. It will be set up depending on whether you are running EFS or ange-ftp at startup if it is nil. This function should accept the prompt string as its first argument, and the default value as its second argument. (custom-declare-variable 'url-passwd-entry-func 'nil '(#$ . -6128) :type '(choice (const :tag "Guess" :value nil) (const :tag "Use Ange-FTP" :value ange-ftp-read-passwd) (const :tag "Use EFS" :value efs-read-passwd) (const :tag "Use Password Package" :value read-passwd) (function :tag "Other")) :group 'url-hairy) #@28 *Rely solely on the cache? (custom-declare-variable 'url-standalone-mode 'nil '(#$ . -6726) :type 'boolean :group 'url-cache) #@53 Characters allowable in a MIME multipart separator. (defvar url-mime-separator-chars (mapcar 'identity "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'()+_,-./=?") (#$ . 6858)) #@203 *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") '(#$ . -7058) :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=\"?\\([^\"]+\\)\"?" (#$ . 7400)) #@41 Any data to send with the next request. (defvar url-request-data nil (#$ . 7563)) #@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 (#$ . 7652)) #@41 The method to use for the next request. (defvar url-request-method nil (#$ . 7809)) #@65 *String to send in the Accept-encoding: field in HTTP requests. (defvar url-mime-encoding-string nil (#$ . -7899)) (byte-code "\301\302!\204\303\304!\203\305\306\307\310\304\311!\"\"\301\207" [mm-mime-mule-charset-alist featurep xemacs fboundp coding-system-list apply nconc mapcar #[(cs) "\301\302\"\205\301\303\"\304=?\205\301\302\"\305\306\301\303\"\"BC\207" [cs coding-system-get mime-charset safe-charsets t delq ascii] 6] base-only] 6) #@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!\205=\306\307 \307\211\203' @\310\n@!\203 \n@B A\211\204*\237)!\311\312\f\211A@\"\313\314\f\315#\316Q)\207" [accum mm-mime-mule-charset-alist elt #1=#:--dolist-temp--25901 ordered fboundp sort-coding-systems nil mm-coding-system-p format "%s;q=1, " mapconcat symbol-name ";q=0.5, " ";q=0.5"] 5 (#$ . 8361)]) #@188 *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 (url-mime-charset-string) (#$ . -8861)) (defalias 'url-set-mime-charset-string #[nil "\300 \211\207" [url-mime-charset-string] 2]) (add-hook 'set-language-environment-hook 'url-set-mime-charset-string) #@461 *String to send in the Accept-language: field in HTTP requests. Specifies the preferred language when servers can serve documents in several languages. Use RFC 1766 abbreviations, e.g.@: `en' for English, `de' for German. A comma-separated specifies descending order of preference. The ordering can be made explicit using `q' factors defined by HTTP, e.g. `de,en-gb;q=0.8,en;q=0.7'. `*' means get the first available language (as opposed to the default). (custom-declare-variable 'url-mime-language-string 'nil '(#$ . -9290) :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 :group 'i18n) #@69 String to send to the server in the Accept: field in HTTP requests. (defvar url-mime-accept-string nil (#$ . 10025)) #@38 Version number of package using URL. (defvar url-package-version nil (#$ . 10148)) #@38 Version number of package using URL. (defvar url-package-name nil (#$ . 10237)) #@32 What type of system we are on. (defvar url-system-type nil (#$ . 10323)) #@20 What OS we are on. (defvar url-os-type nil (#$ . 10402)) #@118 *Maximum number of times a password will be prompted for. Applies when a protected document is denied by the server. (custom-declare-variable 'url-max-password-attempts '5 '(#$ . -10466) :type 'integer :group 'url) #@28 *Where temporary files go. (custom-declare-variable 'url-temporary-directory '(or (getenv "TMPDIR") "/tmp") '(#$ . -10687) :type 'directory :group 'url-file) #@157 *Whether to show a running total of bytes transferred. Can cause a large hit if using a remote X display over a slow link, or a terminal with a slow modem. (custom-declare-variable 'url-show-status 't '(#$ . -10852) :type 'boolean :group 'url) #@81 Either nil or the fully qualified proxy URL in use, e.g. http://www.domain.com/ (defvar url-using-proxy nil (#$ . 11102)) #@198 *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 '(#$ . -11231) :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-Z0-9+.]+:\\)" (#$ . 11563)) #@213 *What function to use for asking yes or no functions. Possible values are `yes-or-no-p' or `y-or-n-p', or any function that takes a single argument (the prompt), and returns t only if a positive answer is given. (custom-declare-variable 'url-confirmation-func ''y-or-n-p '(#$ . -11695) :type '(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")) :group 'url-hairy) #@336 *The type of gateway support to use. Should be a symbol specifying how to get a connection from the local machine. Currently supported methods: `telnet': Run telnet in a subprocess to connect; `rlogin': Rlogin to another machine to connect; `socks': Connect through a socks server; `ssl': Connect with SSL; `native': Connect directy. (custom-declare-variable 'url-gateway-method ''native '(#$ . -12144) :type '(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 for all connections" :value ssl) (const :tag "Direct connection" :value native)) :group 'url-hairy) #@36 Has setup configuration been done? (defvar url-setup-done nil (#$ . 12837)) (byte-code "\301B\305\302B\306\303B\307\303!\204\310\304B\307\304!\204$\311\301\207" [current-load-list weekday-alist monthabbrev-alist url-lazy-message-time url-extensions-header (("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)) (("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)) boundp 0 "Security/Digest Security/SSL"] 2) #@35 *A syntax table for parsing URLs. (defvar url-parse-syntax-table (copy-syntax-table emacs-lisp-mode-syntax-table) (#$ . -13533)) (byte-code "\301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\207" [url-parse-syntax-table modify-syntax-entry 39 "\"" 96 60 "(>" 62 ")<" 47 " "] 4) #@53 *Hooks to be run after initalizing the URL library. (defvar url-load-hook nil (#$ . -13854)) (byte-code "\301B\302\301\207" [current-load-list url-working-buffer " *url-work"] 2) #@143 Non-nil means don't open new network connexions. This should be set, e.g. by mail user agents rendering HTML to avoid `bugs' which call home. (defvar url-gateway-unplugged nil (#$ . 14043)) (defalias 'url-vars-unload-hook #[nil "\300\301\302\"\207" [remove-hook set-language-environment-hook url-set-mime-charset-string] 3]) (provide 'url-vars)