|
0
|
1 (setq load-path (cons (expand-file-name "./") load-path))
|
|
|
2
|
|
|
3 (defun url-declare-variables (&rest args)
|
|
|
4 (while args
|
|
|
5 (eval (list 'defvar (car args) nil ""))
|
|
|
6 (setq args (cdr args))))
|
|
|
7
|
|
|
8 ;; Various internals
|
|
|
9 (url-declare-variables 'proxy-info 'mm-mime-data
|
|
|
10 'mm-content-transfer-encodings)
|
|
|
11
|
|
|
12 ;; For Emacs 19
|
|
|
13 (url-declare-variables 'track-mouse 'menu-bar-help-menu)
|
|
|
14
|
|
|
15 ;; For MULE
|
|
|
16 (url-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
|
|
|
17 'file-coding-system-for-read 'file-coding-system)
|
|
|
18
|
|
|
19 ;; For Mailcrypt
|
|
|
20 (url-declare-variables 'mc-pgp-path 'mc-pgp-key-begin-line 'mc-ripem-pubkeyfile
|
|
|
21 'mc-default-scheme 'mc-flag)
|
|
|
22
|
|
|
23 ;; For NNTP
|
|
|
24 (url-declare-variables 'nntp-server-buffer 'nntp-server-process
|
|
|
25 'nntp/connection 'gnus-nntp-server
|
|
|
26 'nntp-server-name 'nntp-version
|
|
|
27 'gnus-default-nntp-server)
|
|
|
28
|
|
|
29 ;; For ps-print
|
|
|
30 (url-declare-variables 'ps-bold-faces 'ps-italic-faces 'ps-print-version)
|
|
|
31
|
|
|
32 ;; For xpm-button
|
|
|
33 (url-declare-variables 'x-library-search-path)
|
|
|
34
|
|
|
35 (url-declare-variables 'command-line-args-left 'standard-display-table)
|
|
|
36
|
|
|
37 (load "bytecomp" t t nil)
|
|
|
38 ;; Emacs 19 byte compiler complains about too much stuff by default.
|
|
|
39 ;; Turn off most of the warnings here.
|
|
|
40 (setq byte-compile-warnings '(free-vars))
|
|
|
41
|
|
|
42 (require 'url-vars)
|
