Mercurial > emacs
comparison lisp/url/url-vars.el @ 83221:0fc4928cc48e
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-616
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-617
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-618
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-619
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-620
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-621
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-622
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-623
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-624
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-625
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-51
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-52
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-53
Merge from emacs--cvs-trunk--0
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-261
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Tue, 19 Oct 2004 17:00:02 +0000 |
parents | e86fc76a45e4 c386726e02a5 |
children | ae7fab96922c |
comparison
equal
deleted
inserted
replaced
83220:fe1db7935e1a | 83221:0fc4928cc48e |
---|---|
189 :type '(repeat (cons :format "%v" | 189 :type '(repeat (cons :format "%v" |
190 (string :tag "Protocol") | 190 (string :tag "Protocol") |
191 (string :tag "Proxy"))) | 191 (string :tag "Proxy"))) |
192 :group 'url) | 192 :group 'url) |
193 | 193 |
194 (defcustom url-passwd-entry-func nil | |
195 "*Symbol indicating which function to call to read in a password. | |
196 It will be set up depending on whether you are running EFS or ange-ftp | |
197 at startup if it is nil. This function should accept the prompt | |
198 string as its first argument, and the default value as its second | |
199 argument." | |
200 :type '(choice (const :tag "Guess" :value nil) | |
201 (const :tag "Use Ange-FTP" :value ange-ftp-read-passwd) | |
202 (const :tag "Use EFS" :value efs-read-passwd) | |
203 (const :tag "Use Password Package" :value read-passwd) | |
204 (function :tag "Other")) | |
205 :group 'url-hairy) | |
206 | |
207 (defcustom url-standalone-mode nil | 194 (defcustom url-standalone-mode nil |
208 "*Rely solely on the cache?" | 195 "*Rely solely on the cache?" |
209 :type 'boolean | 196 :type 'boolean |
210 :group 'url-cache) | 197 :group 'url-cache) |
211 | 198 |
237 (defvar url-request-method nil "The method to use for the next request.") | 224 (defvar url-request-method nil "The method to use for the next request.") |
238 | 225 |
239 ;; FIXME!! (RFC 2616 gives examples like `compress, gzip'.) | 226 ;; FIXME!! (RFC 2616 gives examples like `compress, gzip'.) |
240 (defvar url-mime-encoding-string nil | 227 (defvar url-mime-encoding-string nil |
241 "*String to send in the Accept-encoding: field in HTTP requests.") | 228 "*String to send in the Accept-encoding: field in HTTP requests.") |
242 | |
243 ;; `mm-mime-mule-charset-alist' in Gnus 5.8/9 contains elements whose | |
244 ;; cars aren't valid MIME charsets/coding systems, at least in Emacs. | |
245 ;; This gets it correct by construction in Emacs. Fixme: DTRT for | |
246 ;; XEmacs -- its `coding-system-list' doesn't have the BASE-ONLY arg. | |
247 (when (and (not (featurep 'xemacs)) | |
248 (fboundp 'coding-system-list)) | |
249 (setq mm-mime-mule-charset-alist | |
250 (apply | |
251 'nconc | |
252 (mapcar | |
253 (lambda (cs) | |
254 (when (and (coding-system-get cs 'mime-charset) | |
255 (not (eq t (coding-system-get cs 'safe-charsets)))) | |
256 (list (cons (coding-system-get cs 'mime-charset) | |
257 (delq 'ascii | |
258 (coding-system-get cs 'safe-charsets)))))) | |
259 (coding-system-list 'base-only))))) | |
260 | 229 |
261 ;; Perhaps the first few should actually be given decreasing `q's and | 230 ;; Perhaps the first few should actually be given decreasing `q's and |
262 ;; the list should be trimmed significantly. | 231 ;; the list should be trimmed significantly. |
263 ;; Fixme: do something sane if we don't have `sort-coding-systems' | 232 ;; Fixme: do something sane if we don't have `sort-coding-systems' |
264 ;; (Emacs 20, XEmacs). | 233 ;; (Emacs 20, XEmacs). |
379 (const :tag "Direct connection" :value native)) | 348 (const :tag "Direct connection" :value native)) |
380 :group 'url-hairy) | 349 :group 'url-hairy) |
381 | 350 |
382 (defvar url-setup-done nil "Has setup configuration been done?") | 351 (defvar url-setup-done nil "Has setup configuration been done?") |
383 | 352 |
384 (defconst weekday-alist | 353 (defconst url-weekday-alist |
385 '(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3) | 354 '(("Sunday" . 0) ("Monday" . 1) ("Tuesday" . 2) ("Wednesday" . 3) |
386 ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6) | 355 ("Thursday" . 4) ("Friday" . 5) ("Saturday" . 6) |
387 ("Tues" . 2) ("Thurs" . 4) | 356 ("Tues" . 2) ("Thurs" . 4) |
388 ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3) | 357 ("Sun" . 0) ("Mon" . 1) ("Tue" . 2) ("Wed" . 3) |
389 ("Thu" . 4) ("Fri" . 5) ("Sat" . 6))) | 358 ("Thu" . 4) ("Fri" . 5) ("Sat" . 6))) |
390 | 359 |
391 (defconst monthabbrev-alist | 360 (defconst url-monthabbrev-alist |
392 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) | 361 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) |
393 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) | 362 ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) |
394 ("Dec" . 12))) | 363 ("Dec" . 12))) |
395 | 364 |
396 (defvar url-lazy-message-time 0) | 365 (defvar url-lazy-message-time 0) |
423 `bugs' which call home.") | 392 `bugs' which call home.") |
424 | 393 |
425 (defun url-vars-unload-hook () | 394 (defun url-vars-unload-hook () |
426 (remove-hook 'set-language-environment-hook 'url-set-mime-charset-string)) | 395 (remove-hook 'set-language-environment-hook 'url-set-mime-charset-string)) |
427 | 396 |
397 (add-hook 'url-vars-unload-hook 'url-vars-unload-hook) | |
398 | |
428 (provide 'url-vars) | 399 (provide 'url-vars) |
429 | 400 |
430 ;;; arch-tag: 29205e5f-c5ce-433c-8d5d-38cbaed64b49 | 401 ;;; arch-tag: 29205e5f-c5ce-433c-8d5d-38cbaed64b49 |
431 ;;; url-vars.el ends here | 402 ;;; url-vars.el ends here |