|
14
|
1 ;;; url-vars.el --- Variables for Uniform Resource Locator tool
|
|
|
2 ;; Author: wmperry
|
|
98
|
3 ;; Created: 1997/02/10 16:15:19
|
|
|
4 ;; Version: 1.27
|
|
14
|
5 ;; Keywords: comm, data, processes, hypermedia
|
|
|
6
|
|
|
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
8 ;;; Copyright (c) 1993-1996 by William M. Perry (wmperry@cs.indiana.edu)
|
|
16
|
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
|
|
14
|
10 ;;;
|
|
|
11 ;;; This file is not part of GNU Emacs, but the same permissions apply.
|
|
|
12 ;;;
|
|
|
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
14 ;;; it under the terms of the GNU General Public License as published by
|
|
|
15 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
16 ;;; any later version.
|
|
|
17 ;;;
|
|
|
18 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
21 ;;; GNU General Public License for more details.
|
|
|
22 ;;;
|
|
|
23 ;;; You should have received a copy of the GNU General Public License
|
|
|
24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
|
25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
26 ;;; Boston, MA 02111-1307, USA.
|
|
|
27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
28
|
|
|
29 (defconst url-version (let ((x "Exp"))
|
|
|
30 (if (string-match "State: \\([^ \t\n]+\\)" x)
|
|
|
31 (substring x (match-beginning 1) (match-end 1))
|
|
|
32 x))
|
|
|
33 "Version # of URL package.")
|
|
|
34
|
|
|
35 (defvar url-current-can-be-cached t
|
|
|
36 "*Whether the current URL can be cached.")
|
|
|
37
|
|
|
38 (defvar url-current-object nil
|
|
|
39 "A parsed representation of the current url")
|
|
|
40
|
|
|
41 (defvar url-current-callback-func nil
|
|
|
42 "*The callback function for the current buffer.")
|
|
|
43
|
|
|
44 (defvar url-current-callback-data nil
|
|
|
45 "*The data to be passed to the callback function. This should be a list,
|
|
|
46 each item in the list will be an argument to the url-current-callback-func.")
|
|
|
47
|
|
|
48 (mapcar 'make-variable-buffer-local '(
|
|
|
49 url-current-callback-data
|
|
|
50 url-current-callback-func
|
|
|
51 url-current-can-be-cached
|
|
|
52 url-current-content-length
|
|
|
53 url-current-file
|
|
|
54 url-current-isindex
|
|
|
55 url-current-mime-encoding
|
|
|
56 url-current-mime-headers
|
|
|
57 url-current-mime-type
|
|
|
58 url-current-mime-viewer
|
|
|
59 url-current-object
|
|
|
60 url-current-port
|
|
|
61 url-current-referer
|
|
|
62 url-current-server
|
|
|
63 url-current-type
|
|
|
64 url-current-user
|
|
|
65 ))
|
|
|
66
|
|
16
|
67 (defvar url-cookie-storage nil "Where cookies are stored.")
|
|
|
68 (defvar url-cookie-secure-storage nil "Where secure cookies are stored.")
|
|
|
69 (defvar url-cookie-file nil "*Where cookies are stored on disk.")
|
|
|
70
|
|
14
|
71 (defvar url-default-retrieval-proc 'url-default-callback
|
|
|
72 "*The default action to take when an asynchronous retrieval completes.")
|
|
|
73
|
|
|
74 (defvar url-honor-refresh-requests t
|
|
|
75 "*Whether to do automatic page reloads at the request of the document
|
|
|
76 author or the server via the `Refresh' header in an HTTP/1.0 response.
|
|
|
77 If nil, no refresh requests will be honored.
|
|
|
78 If t, all refresh requests will be honored.
|
|
|
79 If non-nil and not t, the user will be asked for each refresh request.")
|
|
|
80
|
|
|
81 (defvar url-emacs-minor-version
|
|
|
82 (if (boundp 'emacs-minor-version)
|
|
|
83 (symbol-value 'emacs-minor-version)
|
|
|
84 (if (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
|
|
|
85 (string-to-int
|
|
|
86 (substring emacs-version
|
|
|
87 (match-beginning 1) (match-end 1)))
|
|
|
88 0))
|
|
|
89 "What minor version of emacs we are using.")
|
|
|
90
|
|
|
91 (defvar url-inhibit-mime-parsing nil
|
|
|
92 "Whether to parse out (and delete) the MIME headers from a message.")
|
|
|
93
|
|
|
94 (defvar url-automatic-caching nil
|
|
|
95 "*If non-nil, all documents will be automatically cached to the local
|
|
|
96 disk.")
|
|
|
97
|
|
|
98 (defvar url-cache-expired
|
|
|
99 (function (lambda (t1 t2) (>= (- (car t2) (car t1)) 5)))
|
|
|
100 "*A function (`funcall'able) that takes two times as its arguments, and
|
|
|
101 returns non-nil if the second time is 'too old' when compared to the first
|
|
|
102 time.")
|
|
|
103
|
|
|
104 (defvar url-check-md5s nil
|
|
|
105 "*Whether to check md5s of retrieved documents or not.")
|
|
|
106
|
|
|
107 (defvar url-expected-md5 nil "What md5 we expect to see.")
|
|
|
108
|
|
|
109 (defvar url-bug-address "wmperry@cs.indiana.edu" "Where to send bug reports.")
|
|
|
110
|
|
|
111 (defvar url-cookie-confirmation nil
|
|
|
112 "*If non-nil, confirmation by the user is required before accepting any
|
|
|
113 HTTP cookies.")
|
|
|
114
|
|
|
115 (defvar url-personal-mail-address nil
|
|
|
116 "*Your full email address. This is what is sent to HTTP/1.0 servers as
|
|
|
117 the FROM field. If not set when url-do-setup is run, it defaults to
|
|
|
118 the value of url-pgp/pem-entity.")
|
|
|
119
|
|
|
120 (defvar url-directory-index-file "index.html"
|
|
|
121 "*The filename to look for when indexing a directory. If this file
|
|
|
122 exists, and is readable, then it will be viewed instead of
|
|
|
123 automatically creating the directory listing.")
|
|
|
124
|
|
|
125 (defvar url-pgp/pem-entity nil
|
|
|
126 "*The users PGP/PEM id - usually their email address.")
|
|
|
127
|
|
|
128 (defvar url-privacy-level 'none
|
|
|
129 "*How private you want your requests to be.
|
|
|
130 HTTP/1.0 has header fields for various information about the user, including
|
|
|
131 operating system information, email addresses, the last page you visited, etc.
|
|
|
132 This variable controls how much of this information is sent.
|
|
|
133
|
|
|
134 This should a symbol or a list.
|
|
|
135 Valid values if a symbol are:
|
|
|
136 none -- Send all information
|
|
|
137 low -- Don't send the last location
|
|
|
138 high -- Don't send the email address or last location
|
|
|
139 paranoid -- Don't send anything
|
|
|
140
|
|
|
141 If a list, this should be a list of symbols of what NOT to send.
|
|
|
142 Valid symbols are:
|
|
|
143 email -- the email address
|
|
|
144 os -- the operating system info
|
|
|
145 lastloc -- the last location
|
|
|
146 agent -- Do not send the User-Agent string
|
|
|
147 cookie -- never accept HTTP cookies
|
|
|
148
|
|
|
149 Samples:
|
|
|
150
|
|
|
151 (setq url-privacy-level 'high)
|
|
|
152 (setq url-privacy-level '(email lastloc)) ;; equivalent to 'high
|
|
|
153 (setq url-privacy-level '(os))
|
|
|
154
|
|
|
155 ::NOTE::
|
|
|
156 This variable controls several other variables and is _NOT_ automatically
|
|
|
157 updated. Call the function `url-setup-privacy-info' after modifying this
|
|
|
158 variable.
|
|
|
159 ")
|
|
|
160
|
|
|
161 (defvar url-uudecode-program "uudecode" "*The UUdecode executable.")
|
|
|
162
|
|
|
163 (defvar url-uuencode-program "uuencode" "*The UUencode executable.")
|
|
|
164
|
|
|
165 (defvar url-history-list nil "List of urls visited this session.")
|
|
|
166
|
|
|
167 (defvar url-inhibit-uncompression nil "Do not do decompression if non-nil.")
|
|
|
168
|
|
|
169 (defvar url-keep-history nil
|
|
|
170 "*Controls whether to keep a list of all the URLS being visited. If
|
|
|
171 non-nil, url will keep track of all the URLS visited.
|
|
|
172 If eq to `t', then the list is saved to disk at the end of each emacs
|
|
|
173 session.")
|
|
|
174
|
|
|
175 (defvar url-uncompressor-alist '((".z" . "x-gzip")
|
|
|
176 (".gz" . "x-gzip")
|
|
|
177 (".uue" . "x-uuencoded")
|
|
|
178 (".hqx" . "x-hqx")
|
|
|
179 (".Z" . "x-compress"))
|
|
|
180 "*An assoc list of file extensions and the appropriate
|
|
|
181 content-transfer-encodings for each.")
|
|
|
182
|
|
|
183 (defvar url-xterm-command "xterm -title %s -ut -e %s %s %s"
|
|
|
184 "*Command used to start an xterm window.")
|
|
|
185
|
|
|
186 (defvar url-tn3270-emulator "tn3270"
|
|
|
187 "The client to run in a subprocess to connect to a tn3270 machine.")
|
|
|
188
|
|
|
189 (defvar url-use-transparent nil
|
|
|
190 "*Whether to use the transparent package by Brian Tompsett instead of
|
|
|
191 the builtin telnet functions. Using transparent allows you to have full
|
|
|
192 vt100 emulation in the telnet and tn3270 links.")
|
|
|
193
|
|
|
194 (defvar url-mail-command 'url-mail
|
|
|
195 "*This function will be called whenever url needs to send mail. It should
|
|
|
196 enter a mail-mode-like buffer in the current window.
|
|
|
197 The commands mail-to and mail-subject should still work in this
|
|
|
198 buffer, and it should use mail-header-separator if possible.")
|
|
|
199
|
|
|
200 (defvar url-local-exec-path nil
|
|
|
201 "*A list of possible locations for x-exec scripts.")
|
|
|
202
|
|
|
203 (defvar url-proxy-services nil
|
|
|
204 "*An assoc list of access types and servers that gateway them.
|
|
16
|
205 Looks like ((\"http\" . \"hostname:portnumber\") ....) This is set up
|
|
14
|
206 from the ACCESS_proxy environment variables in url-do-setup.")
|
|
|
207
|
|
|
208 (defvar url-global-history-file nil
|
|
|
209 "*The global history file used by both Mosaic/X and the url package.
|
|
|
210 This file contains a list of all the URLs you have visited. This file
|
|
|
211 is parsed at startup and used to provide URL completion.")
|
|
|
212
|
|
|
213 (defvar url-global-history-save-interval 3600
|
|
|
214 "*The number of seconds between automatic saves of the history list.
|
|
|
215 Default is 1 hour. Note that if you change this variable after `url-do-setup'
|
|
|
216 has been run, you need to run the `url-setup-save-timer' function manually.")
|
|
|
217
|
|
|
218 (defvar url-global-history-timer nil)
|
|
|
219
|
|
|
220 (defvar url-passwd-entry-func nil
|
|
|
221 "*This is a symbol indicating which function to call to read in a
|
|
|
222 password. It will be set up depending on whether you are running EFS
|
|
|
223 or ange-ftp at startup if it is nil. This function should accept the
|
|
|
224 prompt string as its first argument, and the default value as its
|
|
|
225 second argument.")
|
|
|
226
|
|
|
227 (defvar url-gopher-labels
|
|
|
228 '(("0" . "(TXT)")
|
|
|
229 ("1" . "(DIR)")
|
|
|
230 ("2" . "(CSO)")
|
|
|
231 ("3" . "(ERR)")
|
|
|
232 ("4" . "(MAC)")
|
|
|
233 ("5" . "(PCB)")
|
|
|
234 ("6" . "(UUX)")
|
|
|
235 ("7" . "(???)")
|
|
|
236 ("8" . "(TEL)")
|
|
|
237 ("T" . "(TN3)")
|
|
|
238 ("9" . "(BIN)")
|
|
|
239 ("g" . "(GIF)")
|
|
|
240 ("I" . "(IMG)")
|
|
|
241 ("h" . "(WWW)")
|
|
|
242 ("s" . "(SND)"))
|
|
|
243 "*An assoc list of gopher types and how to describe them in the gopher
|
|
|
244 menus. These can be any string, but HTML/HTML+ entities should be
|
|
|
245 used when necessary, or it could disrupt formatting of the document
|
|
|
246 later on. It is also a good idea to make sure all the strings are the
|
|
|
247 same length after entity references are removed, on a strictly
|
|
|
248 stylistic level.")
|
|
|
249
|
|
|
250 (defvar url-gopher-icons
|
|
|
251 '(
|
|
|
252 ("0" . "&text.document;")
|
|
|
253 ("1" . "&folder;")
|
|
|
254 ("2" . "&index;")
|
|
|
255 ("3" . "&stop;")
|
|
|
256 ("4" . "&binhex.document;")
|
|
|
257 ("5" . "&binhex.document;")
|
|
|
258 ("6" . "&uuencoded.document;")
|
|
|
259 ("7" . "&index;")
|
|
|
260 ("8" . "&telnet;")
|
|
|
261 ("T" . "&tn3270;")
|
|
|
262 ("9" . "&binary.document;")
|
|
|
263 ("g" . "ℑ")
|
|
|
264 ("I" . "ℑ")
|
|
|
265 ("s" . "&audio;"))
|
|
|
266 "*An assoc list of gopher types and the graphic entity references to
|
|
|
267 show when possible.")
|
|
|
268
|
|
|
269 (defvar url-standalone-mode nil "*Rely solely on the cache?")
|
|
|
270 (defvar url-multiple-p t
|
|
|
271 "*If non-nil, multiple queries are possible through ` *URL-<i>*' buffers")
|
|
|
272 (defvar url-default-working-buffer " *URL*" " The default buffer to do all of the processing in.")
|
|
|
273 (defvar url-working-buffer url-default-working-buffer " The buffer to do all of the processing in.
|
|
|
274 (It defaults to `url-default-working-buffer' and is bound to ` *URL-<i>*' buffers
|
|
|
275 when used for multiple requests, cf. `url-multiple-p')")
|
|
|
276 (defvar url-current-referer nil "Referer of this page.")
|
|
|
277 (defvar url-current-content-length nil "Current content length.")
|
|
|
278 (defvar url-current-file nil "Filename of current document.")
|
|
|
279 (defvar url-current-isindex nil "Is the current document a searchable index?")
|
|
|
280 (defvar url-current-mime-encoding nil "MIME encoding of current document.")
|
|
|
281 (defvar url-current-mime-headers nil "An alist of MIME headers.")
|
|
|
282 (defvar url-current-mime-type nil "MIME type of current document.")
|
|
|
283 (defvar url-current-mime-viewer nil "How to view the current MIME doc.")
|
|
|
284 (defvar url-current-nntp-server nil "What nntp server currently opened.")
|
|
|
285 (defvar url-current-passwd-count 0 "How many times password has failed.")
|
|
|
286 (defvar url-current-port nil "Port # of the current document.")
|
|
|
287 (defvar url-current-server nil "Server of the current document.")
|
|
|
288 (defvar url-current-user nil "Username for ftp login.")
|
|
|
289 (defvar url-current-type nil "We currently in http or file mode?")
|
|
|
290 (defvar url-gopher-types "0123456789+gIThws:;<"
|
|
|
291 "A string containing character representations of all the gopher types.")
|
|
|
292 (defvar url-mime-separator-chars (mapcar 'identity
|
|
|
293 (concat "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
|
294 "abcdefghijklmnopqrstuvwxyz"
|
|
|
295 "0123456789'()+_,-./=?"))
|
|
|
296 "Characters allowable in a MIME multipart separator.")
|
|
|
297
|
|
|
298 (defvar url-bad-port-list
|
|
|
299 '("25" "119" "19")
|
|
|
300 "*List of ports to warn the user about connecting to. Defaults to just
|
|
|
301 the mail, chargen, and NNTP ports so you cannot be tricked into sending
|
|
|
302 fake mail or forging messages by a malicious HTML document.")
|
|
|
303
|
|
|
304 (defvar url-be-anal-about-file-attributes nil
|
|
|
305 "*Whether to use HTTP/1.0 to figure out file attributes
|
|
|
306 or just guess based on file extension, etc.")
|
|
|
307
|
|
|
308 (defvar url-be-asynchronous nil
|
|
|
309 "*Controls whether document retrievals over HTTP should be done in
|
|
|
310 the background. This allows you to keep working in other windows
|
|
|
311 while large downloads occur.")
|
|
|
312 (make-variable-buffer-local 'url-be-asynchronous)
|
|
|
313
|
|
|
314 (defvar url-request-data nil "Any data to send with the next request.")
|
|
|
315
|
|
|
316 (defvar url-request-extra-headers nil
|
|
|
317 "A list of extra headers to send with the next request. Should be
|
|
|
318 an assoc list of headers/contents.")
|
|
|
319
|
|
|
320 (defvar url-request-method nil "The method to use for the next request.")
|
|
|
321
|
|
|
322 (defvar url-mime-encoding-string nil
|
|
|
323 "String to send to the server in the Accept-encoding: field in HTTP/1.0
|
|
|
324 requests. This is created automatically from mm-content-transfer-encodings.")
|
|
|
325
|
|
|
326 (defvar url-mime-language-string "*"
|
|
|
327 "String to send to the server in the Accept-language: field in
|
|
|
328 HTTP/1.0 requests.")
|
|
|
329
|
|
|
330 (defvar url-mime-accept-string nil
|
|
|
331 "String to send to the server in the Accept: field in HTTP/1.0 requests.
|
|
|
332 This is created automatically from url-mime-viewers, after the mailcap file
|
|
|
333 has been parsed.")
|
|
|
334
|
|
|
335 (defvar url-history-changed-since-last-save nil
|
|
|
336 "Whether the history list has changed since the last save operation.")
|
|
|
337
|
|
|
338 (defvar url-proxy-basic-authentication nil
|
|
|
339 "Internal structure - do not modify!")
|
|
|
340
|
|
|
341 (defvar url-registered-protocols nil
|
|
|
342 "Internal structure - do not modify! See `url-register-protocol'")
|
|
|
343
|
|
|
344 (defvar url-package-version "Unknown" "Version # of package using URL.")
|
|
|
345
|
|
|
346 (defvar url-package-name "Unknown" "Version # of package using URL.")
|
|
|
347
|
|
|
348 (defvar url-system-type nil "What type of system we are on.")
|
|
|
349 (defvar url-os-type nil "What OS we are on.")
|
|
|
350
|
|
|
351 (defvar url-max-password-attempts 5
|
|
|
352 "*Maximum number of times a password will be prompted for when a
|
|
|
353 protected document is denied by the server.")
|
|
|
354
|
|
|
355 (defvar url-wais-to-mime
|
|
|
356 '(
|
|
|
357 ("WSRC" . "application/x-wais-source") ; A database description
|
|
|
358 ("TEXT" . "text/plain") ; plain text
|
|
|
359 )
|
|
|
360 "An assoc list of wais doctypes and their corresponding MIME
|
|
|
361 content-types.")
|
|
|
362
|
|
|
363 (defvar url-waisq-prog "waisq"
|
|
|
364 "*Name of the waisq executable on this system. This should be the
|
|
|
365 waisq program from think.com's wais8-b5.1 distribution.")
|
|
|
366
|
|
|
367 (defvar url-wais-gateway-server "www.ncsa.uiuc.edu"
|
|
|
368 "*The machine name where the WAIS gateway lives.")
|
|
|
369
|
|
|
370 (defvar url-wais-gateway-port "8001"
|
|
|
371 "*The port # of the WAIS gateway.")
|
|
|
372
|
|
|
373 (defvar url-temporary-directory "/tmp" "*Where temporary files go.")
|
|
|
374
|
|
|
375 (defvar url-show-status t
|
|
|
376 "*Whether to show a running total of bytes transferred. Can cause a
|
|
|
377 large hit if using a remote X display over a slow link, or a terminal
|
|
|
378 with a slow modem.")
|
|
|
379
|
|
|
380 (defvar url-using-proxy nil
|
|
|
381 "Either nil or the fully qualified proxy URL in use, e.g.
|
|
|
382 http://www.domain.com/")
|
|
|
383
|
|
|
384 (defvar url-news-server nil
|
|
|
385 "*The default news server to get newsgroups/articles from if no server
|
|
|
386 is specified in the URL. Defaults to the environment variable NNTPSERVER
|
|
|
387 or \"news\" if NNTPSERVER is undefined.")
|
|
|
388
|
|
|
389 (defvar url-gopher-to-mime
|
|
|
390 '((?0 . "text/plain") ; It's a file
|
|
|
391 (?1 . "www/gopher") ; Gopher directory
|
|
|
392 (?2 . "www/gopher-cso-search") ; CSO search
|
|
|
393 (?3 . "text/plain") ; Error
|
|
|
394 (?4 . "application/mac-binhex40") ; Binhexed macintosh file
|
|
|
395 (?5 . "application/pc-binhex40") ; DOS binary archive of some sort
|
|
|
396 (?6 . "archive/x-uuencode") ; Unix uuencoded file
|
|
|
397 (?7 . "www/gopher-search") ; Gopher search!
|
|
|
398 (?9 . "application/octet-stream") ; Binary file!
|
|
|
399 (?g . "image/gif") ; Gif file
|
|
|
400 (?I . "image/gif") ; Some sort of image
|
|
|
401 (?h . "text/html") ; HTML source
|
|
|
402 (?s . "audio/basic") ; Sound file
|
|
|
403 )
|
|
|
404 "*An assoc list of gopher types and their corresponding MIME types.")
|
|
|
405
|
|
|
406 (defvar url-use-hypertext-gopher t
|
|
|
407 "*Controls how gopher documents are retrieved.
|
|
|
408 If non-nil, the gopher pages will be converted into HTML and parsed
|
|
|
409 just like any other page. If nil, the requests will be passed off to
|
|
|
410 the gopher.el package by Scott Snyder. Using the gopher.el package
|
|
|
411 will lose the gopher+ support, and inlined searching.")
|
|
|
412
|
|
|
413 (defvar url-global-history-hash-table nil
|
|
|
414 "Hash table for global history completion.")
|
|
|
415
|
|
|
416 (defvar url-nonrelative-link
|
|
|
417 "^\\([-a-zA-Z0-9+.]+:\\)"
|
|
|
418 "A regular expression that will match an absolute URL.")
|
|
|
419
|
|
|
420 (defvar url-configuration-directory nil
|
|
|
421 "*Where the URL configuration files can be found.")
|
|
|
422
|
|
|
423 (defvar url-confirmation-func 'y-or-n-p
|
|
|
424 "*What function to use for asking yes or no functions. Possible
|
|
|
425 values are 'yes-or-no-p or 'y-or-n-p, or any function that takes a
|
|
|
426 single argument (the prompt), and returns t only if a positive answer
|
|
|
427 is gotten.")
|
|
|
428
|
|
|
429 (defvar url-find-this-link nil "Link to go to within a document.")
|
|
|
430
|
|
|
431 (defvar url-gateway-method 'native
|
|
|
432 "*The type of gateway support to use.
|
|
|
433 Should be a symbol specifying how we are to get a connection off of the
|
|
|
434 local machine.
|
|
|
435
|
|
|
436 Currently supported methods:
|
|
16
|
437 'telnet :: Run telnet in a subprocess to connect
|
|
|
438 'rlogin :: Rlogin to another machine to connect
|
|
|
439 'socks :: Connects through a socks server
|
|
|
440 'ssl :: Connection should be made with SSL
|
|
14
|
441 'tcp :: Use the excellent tcp.el package from gnus.
|
|
|
442 This simply does a (require 'tcp), then sets
|
|
16
|
443 url-gateway-method to be 'native.
|
|
|
444 'native :: Use the native open-network-stream in emacs
|
|
|
445 ")
|
|
14
|
446
|
|
|
447 (defvar url-running-xemacs (string-match "XEmacs" emacs-version)
|
|
|
448 "*In XEmacs?.")
|
|
|
449
|
|
|
450 (defvar url-default-ports '(("http" . "80")
|
|
|
451 ("gopher" . "70")
|
|
|
452 ("telnet" . "23")
|
|
|
453 ("news" . "119")
|
|
|
454 ("https" . "443")
|
|
|
455 ("shttp" . "80"))
|
|
|
456 "An assoc list of protocols and default port #s")
|
|
|
457
|
|
|
458 (defvar url-setup-done nil "*Has setup configuration been done?")
|
|
|
459
|
|
|
460 (defvar url-source nil
|
|
|
461 "*Whether to force a sourcing of the next buffer. This forces local
|
|
|
462 files to be read into a buffer, no matter what. Gets around the
|
|
|
463 optimization that if you are passing it to a viewer, just make a
|
|
|
464 symbolic link, which looses if you want the source for inlined
|
|
|
465 images/etc.")
|
|
|
466
|
|
|
467 (defconst weekday-alist
|
|
|
468 '(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3)
|
|
|
469 ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6)
|
|
|
470 ("Tues" . 2) ("Thurs" . 4)
|
|
|
471 ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3)
|
|
|
472 ("Thu" . 4) ("Fri" . 5) ("Sat" . 6)))
|
|
|
473
|
|
|
474 (defconst monthabbrev-alist
|
|
|
475 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6)
|
|
|
476 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))
|
|
|
477 )
|
|
|
478
|
|
|
479 (defvar url-lazy-message-time 0)
|
|
|
480
|
|
|
481 (defvar url-extensions-header "Security/Digest Security/SSL")
|
|
|
482
|
|
|
483 (defvar url-mailserver-syntax-table
|
|
|
484 (copy-syntax-table emacs-lisp-mode-syntax-table)
|
|
|
485 "*A syntax table for parsing the mailserver URL")
|
|
|
486
|
|
|
487 (modify-syntax-entry ?' "\"" url-mailserver-syntax-table)
|
|
|
488 (modify-syntax-entry ?` "\"" url-mailserver-syntax-table)
|
|
|
489 (modify-syntax-entry ?< "(>" url-mailserver-syntax-table)
|
|
|
490 (modify-syntax-entry ?> ")<" url-mailserver-syntax-table)
|
|
|
491 (modify-syntax-entry ?/ " " url-mailserver-syntax-table)
|
|
|
492
|
|
|
493 ;;; Make OS/2 happy - yeeks
|
|
|
494 (defvar tcp-binary-process-input-services nil
|
|
|
495 "*Make OS/2 happy with our CRLF pairs...")
|
|
|
496
|
|
|
497 (provide 'url-vars)
|
